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1000 ' 1-TjIZi* 

1010 CLEAR 2048,&HCFFF:DEFINT A-Z : 

1020 GOSUB 2450:DEFUSR0=&HD000: 

1030 MAXFILES=2:DV$="A:U" 

1040 DIM DT$(40) ,NM*(40) 

1050 DIM TX$<5) 

1060 GOSUB 1550:GOSUB 1650 

1070 SCREEN 1,0:COLOR 15,4,7 

1080 KEY OFF:WIDTH 30 

1090 CLS 

1100 PRINT "CU — CoS* *>tel< &<" 

1110 PRINT "[2] — Co« U^W 

1120 PRINT "C3] — Co3* ttt" 

1130 PRINT M C4] -- Co55 J*" 

1140 PRINT "C53 ~ Wi" 

1150 PRINT 

1160 PRINT "fc"«C Lit*? :"; 

1170 A$=INPUT*U> 

1180 IF A$<"1" OR A$>"5" THEN 1170 

1190 PRINT A*:A=VAL(A$) 

1200 ON A GOTO 1220,1330,1390,1460,1510 

1210 END 

1220 ' Co?0) Jf<tU 

1230 CLSrPRINT "<< C-M L*?«K> »" 

1240 INPUT " W)i" ;M:IF M<1 OR M>12 THEN 1240 

1250 INPUT " ftftdf :";D:IF D<1 OR D>31 THEN 1250 

1260 DT$=RIGHT$("0"+MID*(STR$(M) ,2) ,2)+"-"+RIGHT$("0"+MID$ (STR$(D) 

,2) ,2) 

1270 INPUT " £*l>m»:";NM*:IF NM$="" THEN 1270 

1280 NM$=LEFT$(NM$,5) 

1290 NM=NM+1 :DT$ (NM) =DT$ :NM$ <NM) =NM* 

1300 FOR 1 = 1 TO 5:TX$(I)=STRING$(30," ") :NEXT I 

1310 GOSUB 1850 

1320 GOSUB 2080:GOSUB 2030:GOTO 1070 

1330 ' CoSO) L*?tH» 

1340 CLS:PRINT "« Co?0 L«?*l» >>" 

1350 GOSUB 1720: IF 1=0 GOTO 1090 

1360 DT$=DT$(I) :NM$=NM$(I) 

1370 GOSUB 1850: GOSUB 1940 

1380 GOSUB 2080:GOSUB 2030:GOTO 1070 

1390 ' Co50) L*?3* 

1400 CLS:PRINT "<< CoSO) L*?J* »" 

1410 GOSUB 1720:IF 1=0 GOTO 1090 

1420 KILL DV$+DT$(I)+" .pic":KILL DV$+DT$(I)+ H .txt" 

1430 NM=NM-1:IF I=NM THEN 1090 

1440 FOR J=I+1 TO NM:DT$(J-1)=DT$(J) :NM$(J-1)=NM$(J) :NEXT J 

1450 NM=NM-l:GOTO 1090 

1460 ' Co$0) *J»£"l 

1470 CLS:PRINT "<< CoJfl MV I »" 

1480 GOSUB 1720: IF 1=0 GOTO 1090 

1490 DT$=DT*(I) :NM$=NM*U) :GOSUB 1850:GOSUB 1940 

1500 A$=INPUT$(1) :G0T0 1070 

1510 ' *y*i® U>9 l J*9 

1520 CLS:PRINT "<< *$**? UW*4 >>" :GOSUB 1600 

1540 END 

1550 ' 7"-fL7MJ Read 

1560 OPEN DV*+"dir.dat H FOR INPUT AS #1 

1570 INPUT #1,NM:IF NM=0 THEN 1590 

1580 FOR 1 = 1 TO NM:INPUT #1 ,DT$(I) :INPUT #1 ,NM$U) :NEXT I 

1590 CLOSE #1:RETURN 

1600 ' Firth*) Write 

1610 OPEN DV$+"dir.dat" FOR OUTPUT AS #1 
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1620 PRINT #1,NM:IF NM=0 THEN 1640 

1630 FOR 1 = 1 TO NMrPRINT #1 ,DT$(I) :PRINT #1 ,NM$(I) :NEXT I 

1640 CLOSE #1 :RETURN 

1650 ' r*fc9MP Sort 

1660 IF NM<=1 THEN 1710 

1670 FOR 1=1 TO NM-l:FOR J=I+1 TO NM 

1680 IF DT$(IXDT*(J) THEN 1700 

1690 SWAP DT*(I) ,DT$(J) :SWAP NM$(I) ,NM*(J) 

1700 NEXT J:NEXT I 

1710 RETURN 

1720 ' f*my Select 

1730 IF NM=0 THEN 1820 

1740 FOR 1=1 TO NM 

1750 LOCATE ( (I-DM0D2) #16, ( <I-1)¥2)+1 

1760 PRINT DT$(I)+": r "+NM$(I)+"j" 

1770 NEXT I 

1780 LOCATE 0,22:INPUT "UriU&mi^tzWW W* 

1790 FOR 1=1 TO NM 

1800 IF DT*=DT*(I) THEN RETURN: 

1810 NEXT I 

1820 LOCATE 0,23:PRINT "£*W MiU*. ! " : :BEEP 

1830 A$=INPUT*(1) :I=0 

1840 RETURN 

1850 ' Vto Init 

I860 SCREEN 5,0:COLOR 15,4,7:CLS 

1870 SPRITE$ (0) =CHR$ (&H40) +CHR$ (&HA0) +CHR$ (&H40) 

1880 SPRITE$ ( 1 ) =CHR$ (&H0) +CHR* (&H40) +CHR$ <8cH0) 

1890 COLOR SPRITE(0)=1:COLOR SPRITE(l)=15+64 

1900 COLOR SPRITE(2)=1:C0L0R SPRITE(3)=15+64 

1910 CLSrLINE (7,1)-(248,162) ,7,B:LINE (8,2)-<247,161) ,15, BF 

1920 LINE (7,167)-(248,208) ,7,B:LINE (8, 168) -(247 ,207) ,15 ,BF 

1930 RETURN 

1940 ' Vfj Read 

1950 COPY DV$+DT$+".pic" TO (8,2) 

I960 OPEN DV$+DT$+".txt" FOR INPUT AS #1 

1970 OPEN "grp:" FOR OUTPUT AS #2 

1980 FOR 1=1 TO 5 

1990 INPUT #1,TX$(I) 

2000 COLOR 1, 15:PSET(8, 160+1*8) ,15:PRINT #2 .TX$ ( I ) :COLOR 15,4 

2010 NEXT I 

2020 CLOSE #2:CL0SE #1 :RETURN 

2030 ' rft Write 

2040 COPY <B,2)-(247,161) TO DV$+DT$+" .pic" 

2050 OPEN DV$+DT$+".txt" FOR OUTPUT AS #1 

2060 FOR 1 = 1 TO 5:PRINT #1 ,TX$(I) :NEXT I 

2070 CLOSE #1:RETURN 

2080 ' Ir"-f*f. 

2090 PUT SPRITE 0, (7 ,0) , ,0:PUT SPRITE 1,,,1 

2100 PUT SPRITE 2,(8,168) ,,0:PUT SPRITE 3,,,1 

2110 CX=0:CY=0:P=0:C=0:POKE &HD110,7:POKE &HD111 ,1 :POKE &HD116,P 

2120 '*IJJ+- 

2130 COLOR SPRITE(0)=C+1 

2140 DUMMY=USR0 (DUMMY) 

2150 IF PEEK(&HD114)<>0 THEN LINE (PEEM&HD110) ,PEEK(&HD11 1) )-STEP 

(P,P) ,C+1,BF 

2160 IF PEEK(&HD115)<>0 THEN LINE <PEEK(&HD110) ,PEEK(&HD1 1 1) )-STEP 

(P,P) ,15,BF 

2170 A$=INKEY*:IF A$="" THEN 2140 

2180 IF A$=CHR$(1B) THEN 2240 

2190 IF A$=CHR*(24) THEN C=(C+1) MOD 14 

2200 IF A$=CHR$(11) THEN P=(P+1) MOD 3:P0KE &HD116,P 

2210 IF A$=CHR$(27) THEN RETURN 
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2220 GOTO 2138 

2230 'f»TaWl9 

2240 PUT SPRITE 2, <8+CX*8,168+CY*B) 

2245 A$=INKEY*:IF A$=" u THEN 2245 

2250 IF A$>=" " THEN 2370 

2260 IF A*=CHR*(27) THEN RETURN 

2270 IF A$=CHR$(18) THEN 2130 

2280 IF A$=CHR$(13) THEN CX=0:CY=CY+1 

2290 IF A$=CHR*<8) AND CX>0 THEN K=l :CX=CX-1 :A$=" " :GOTO 2370 

2300 IF A$=CHR$(2B) THEN CX=CX+1 

2310 IF A$=CHR$(29) THEN CX=CX-1 

2320 IF A$=CHR$(30) THEN CY=CY-1 

2330 IF A$=CHR*(31) THEN CY=CY+1 

2340 IF CX<0 THEN CX=0 ELSE IF CX>29 THEN CX=29 

2350 IF CY<0 THEN CY=0 ELSE IF CY>4 THEN CY=4 

2360 GOTO 2240 

2370 OPEN "grp:" FOR OUTPUT AS #1 : COLOR 1,15 

2380 PSET <8+CX*8,168+CY*8) ,15:PRINT #1 ,A* 

2390 CLOSE #l:COLOR 15,4 

2400 TX$(CY+1)=LEFT$(TX$(CY+1) ,CX)+A*+RIGHT$(TX$(CY + 1) ,29-CX) 

2410 IF K=0 THEN CX=CX+1:IF CX>29 THEN CX=0:CY=CY+1 

2420 K=0':IF CY>4 THEN CY=0 

2430 GOTO 2240 

2440 'WjT f-9 

2450 RESTORE 4000:I=&HD000 

2460 READ K$:IF K$="END" THEN RETURN 

2470 K=VAL<"&H"+K$> :POKE I ,K: 1=1+1 :GOTO 2460 

4000 DATA AF,CD,D5,00,B7,28,13,87,5F,21,FE,D0,16,00,19,7E 

4010 DATA 32,12,D1,23,7E,32,13,D1,18,19,3E,0C,CD,DB,00,3E 

4020 DATA 0D,CD,DB,00,CB,2F,32,12,D1,3E,0E,CD,DB,00,CB,2F 

4030 DATA 32,13,D1,3E,01,CD,D8,00,B7,28,02,3E,01,32,14,D1 

4040 DATA 3E,03,CD,D8,00,B7,28,02,3E,01,32,15,D1,3E,08,CD 

4050 DATA 41,01,CB,47,20,05,3E,01,32,14,D1,3E,04,CB,41,01 

4060 DATA CB,5F,20,05,3E,01,32,15,D1,16,02,1E,A2,3A,11,D1 

4070 DATA 6F,3A,13,D1,4F,CD,AF,D0,32,11,D1,16,08,1E,F8,3A 

4080 DATA 10,D1,6F,3A,12,D1,4F,CD,AF,D0,32,10,D1,3A,10,D1 

4090 DATA 3D,32,18,D1,3A,11,D1,3D,32,17,D1,3E,00,32,19,D1 

4100 DATA 21,17,D1,11,00,76,01,03,00,F3,CD,5C,00,FB,C9,26 

4110 DATA 00,06,00,CB,79,20,25,3A,16,D1,57,7B,92,57,3A,14 

4120 DATA D1,FE,00,20,09,09,7C,FE,00,20,0D,7D,18,07,79,FE 

4130 DATA 00,28,01,2C,7D,BA,38,25,15,7A,18,21,79,ED,44,4F 

4140 DATA 3A,14,D1,FE,00,20,0B,B7,ED,42,7C,FE,00,20,0D,7D 

4150 DATA 18,07,79,FE,00,28,01,2D,7D,BA,30,01,7A,C9,00,00 

4160 DATA 00,FF,01,FF,01,00,01,01,00,01,FF,01,FF,00,FF,FF 

4170 DATA END 
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jj<7) r ?--7n tet'tttmtftUZfo 
lbLi\, ZoygpXh (7)7-7° 
n^UfflU-^UT'f^L^b, a 
£ 'J ^£ IJ tfnimmLT < ft!, 

£.*:, IItf£(7v\°;y->f2j&ij N 

£^ *ft(ZJfffl<7)? 7" U -y Ml 



F#A75L^3t^£¥iJSiJT!>£ 
i * -5 fclS^tiNfifc £"<7)¥'JSiJ fe^7 
->IM(7)|tBS^ PlbtLfzffl^ 

Tit, TT'izwm&^nBfrW) 

KfiZfefrtlT^ZU Z<mZ£ 
**/>&%, «#2:^A75<7) 

•Ajy— h*, ELimm^hit, m 

U < ¥»#3t^A75(7)m^¥fe 

«C0-<> T*W # A75 T 1. #5&fc 

->IM(-^^LT^J;-5o fcV 
-?%th ^>^>4BASIC7°P^7 
ATZ.ft£Hi^-tl>CO(J v fr#>J 
IILlv £i)Si7L-f s IMT'#1) 
C7)(i fr& 9 £ T'<n®&<7)&., /> 

&if4<7)T\ iH®lZ^$ftfc'7 




7<7)+lZ7j-v;u*-£f£oTifc 
^^#<7J5t(ZTl)o 

zt. ^(D^—>izmm$tix 

A,T*<ft„ ■f^T'fcoT, f-f* 
^tz-fe— 7'Tlo zmzfny^L. 

tt, MSX2fflfc* a *ft£x-?<7)^ 
1<75T\ DISK BASIC U<»#l*£I& 

2 : ir-7' 

3 : P-K 

4 : mm 

5 : #5 7 

£«7F£ftl><7>T\ S-§-T-ilJRL 
T(5U\, CiU66ti. M&t*-? 




MSX# 



set bit 



Push [y] or C n 3 Key 



color auto goto list 
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AiaMttAACB 




♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

&$**<"7£l£ 6 K-y hx ife^W/N^— >ti. MP (6,7)(Z|S 



X-(7)^^c75/\ ^ — >-r— ^ti, PT 
(6,7,9)(l*SJW£ftTl*£ 

t, MP (6 , 7) (T^Se^lJ^— ^ ^ . PT 

(6 , 7 , 9) Cfclft? ft-U^x-? £ 
4- 1 400ff<7) CH £ I, * 1 MtC'l\MT 
■S) Z<7)CH<7)fe#0.8*rb 1 .2(7)1$ 



4"b, MSXlJ$^£tMT-S> 3 

<7>cH(7)fii%-i.o(z-rmfx sm^ 



f™ #li£A:7XM^->isfi?n^A)LIST 



1000 SCREEN 1 : WIDTH 30: COLOR 15 ,0 ,0 :DEFSNG A-Z 1560 

1010 DEFINT I,J,K:DIM PT <6 ,7 ,9) ,MP (6 ,7) ,C ( 17) 1570 

1020 GOSUB 2030 INT " 

1030 PRINT 1580 

1040 PRINT" 1 .L"o«M/' 1590 

1050 PRINT"2.tr-7"" INT ' 

1060 PRINT"3.D-h" " 1600 

1070 PRINT"4.l*5*T 1610 

1080 PRINT"5.'7" : 77" 1620 

1090 INPUT II 1630 
1100 ON II SOSUB 1120, 1780, 1850, 1650, 1920 :GOT01 1640 

030 1650 

111© ' U"olU 1660 

1120 GOSUB 1460 1670 

1130 GOSUB 1360 1680 

1140 IF H=10 THEN 1210 1690 

1150 LOCATE 0,11:PRINT H"7"*tt?" 1700 

1160 PRINT "Push Cy3 or Cn3 Key" 1710 

1170 A*=INKEY*:IF A*="y" THEN RETURN )=-l 

1180 IF A*="y" THEN 1120 1720 

1190 IF A*="n" THEN 1240 1730 

1200 GOTO 1170 1740 

1210 BEEP:LOCATE , 1 1 :PRINT"f)tW*t+<C" 1750 

1220 INPUT"?£z £ fiLz7!";H2 1760 

1230 AS=0: GOSUB 1270: RETURN 1770 

1240 INPUT"?£z S «UzT!";H2 1780 

1250 AS=0: GOSUB 1270 1790 

1 260 H2=H : AS= 1 : GOSUB 1 270 : RETURN 1 800 

1270 ' JT<U>9 1810 

1280 FOR J=0 TO 7:F=0:F1=0:FOR K=0 TO 6 1820 

1290 IF MP<K,J>=1 THEN F=F+1 :F1=F1+PT (K , J ,H2) i 8 30 
1300 NEXTK:AD=(1-F1)/F:IF 7-F THEN SB=(l-Fl)/(7 1840 

-F) ELSE SB=0 1850 

1310 IF AS THEN AD=-AD :SB=-SB I860 

1320 FOR K=0 TO 6 1870 
1330 IF MP(K,J)=1 THEN PT <K , J ,H2) =PT (K , J ,H2) +AD 1880 

ELSE PT(K,J,H2)=PT(K,J,H2)-SB 1890 

1340 NEXT K,J 1900 

1350 RETURN 1910 

1360 ' f*-9 0) L*9C"9 1920 

1370 FOR 1=0 TO 9 1930 

1380 FOR J=0 TO 7:F=1:CH=0:FOR K=0 TO 6 1940 

1390 CH=CH+MP(K,J)*PT<K,J,I> :NEXT K 1950 

1400 IF CH<.8 OR CHM .2 THEN J=8:F=0 I960 

1410 NEXT J: IF F=0 THEN NEXT I 1970 

1420 IF 1=10 THEN H=10 :GOTO 1440 1980 

1430 H=I :I=10:NEXT I : GOTO 1440 8+NX 

1440 RETURN 1990 

1450 ' A" f-'J Tf-i*t> 2000 

1460 ERASE MP:DIM MP (6, 7) 2010 

1470 CLS: PR I NT: PR I NT 2020 

1480 FOR J=0 TO 7:MP(6,J)=1 :NEXT J 2030 

1490 FOR 1 = 1 TO 8:PRINT" " :NEXTI 2040 

1500 X=0:Y=0:LOCATE ,,1 2050 

1510 C$="»" :DT=1: LOCATE 10,2:PRINT "set bit " 2060 

1520 LOCATE X+l ,Y+2 2070 

1530 S=STICK<0)+STICK<1> 2080 

1540 X=X-(S=3) + <S=7) :X=X+(X>5)-(X<0) 2090 

1550 Y=Y-(S=5)+(S=1) :Y=Y+(Y>7)-(Y<0) 2100 



IN*=INKEY* 

I F I N$= " 1 " THEN C*= " •" : DT= 1 : LOCATE 1 , 2 : PR 

set bit " 

IF IN*=CHR*<13> THEN LOCATE , ,0 : RETURN 

IF IN*="2" THEN C*=" • " :DT=0 :LOCATE 10,2:PR 

rset bit" 

ST=STRIG (0) +STRIG ( 1 ) 

IF ST=0 THEN 1520 

LOCATE X+1,Y+2:PRINT C#;CHR*(29); 

MP(X,Y)=DT:GOTO 1520 

IF STRIG(0)+STRIG(1)=0 THEN 1520 ELSE 1640 

FOR 1=0 TO 9: FOR J=0 TO 7 

F=l:FOR K=7 TO 2 STEP -1 

PO=VPEEK (ASC ("0" ) *8+I*8+J) AND (2"K> 

IF PO THEN PRINT"*" ;:F=F+1 ELSEPRINT "■"; 

NEXT K:FOR K=7 TO 2 STEP -1 

PO=VPEEK ( ASC ( " " ) *8+ 1 *8+ J ) AND ( 2^K > 

IF PO THEN PT(7-K,J,I)=1/F ELSE PT(7-K,J,I 

NEXT K:PT(6,J,I)=1/F:PRINT:NEXTJ 
PRINT 

NEXT I :RETURN 

I=l:FOR J=0 T07:F0R K=0 TO 6 
PRINT PT(K,J,I) ;:NEXT:PRINT:NEXT 
' T--9 t-7" 
CLS:PRINT:PRINT 
INPUT"save -f il ename=" ;F* 
OPEN F* FOR OUTPUT AS#1 
FOR 1=0 T09:FOR J=0 T07:F0R K=0 T06 
PRINT #1,PT(K,J,I> 
NEXT K,J,I:CLOSE #1 :RETURN 
' f-f P-h" 
CLS:PRINT:PRINT 
INPUT "load f ilename=" ;F* 
OPEN F* FOR INPUT AS#1 
FOR 1=0 T09:F0R J=0 T07:F0R K=0 T06 
INPUT#1,PT(K,J,I) 
NEXT K,J,I:CLOSE #1 :RETURN 
' 7" =>1 *<&» 

SCREEN8 :COLOR 255 ,0 ,0 :CLS :NY=0 :NX=0 
FORN=0 TO 9:F0R 1=0 TO 7:F0R J=0 TO 5 
IF N>4 THEN NY=64 :NX=-240 
C0=<PT<J,I,N)+2>*8 
IF CO<0 THEN CO=0 
IF C0>17 THEN C0=17 

LINE (8+J*8+N*48+NX,40+I*8+NY)-(14+J*8+N*4 
,46+I*8+NY> ,C(CO) ,BF 
NEXT J,I,N 

IF STRIG<0) THEN SCREEN 1 -.RETURN 
GOTO 2000 
' 717- r-v 

FOR 1=0 TO 17:READ A* 
C<I>=VAL("&B"+A$> 
NEXT: RETURN 

DATA 00000000 , 0000000 1 , 000000 1 , 000000 1 1 

DATA 000001 1 1 ,0000101 1 ,00001 1 1 1 ,0001001 1 

DATA 000101 1 1 ,0001 101 1 ,0001 1 1 1 1 ,001 1 1 1 1 1 

DATA 01011111 ,01111111,10011111 ,10111111 

DATA 11011111,11111111 




AI*afiH A. *> < B 161 



m 



MSX BUSINESS REPORTI 



m 



s 



»i>urffi*«cfc5c<i:E«*ni»5Bt?nfcc:©v7ho matt ££££££ . 




*- i^SST'&fclOH. M 
^5^4" IZ^H T I* 5 (7)122 , 000R o 
— Wt'Z CJflfolT L S o fc<7>#*> 

-Tizfltofcu,, T-fc, ±H£i; 
^ tt K > 7' u «&:£ ( V)v®£ ? ) t* 
(S, S3o *±» J « : >S&5l$fcizj£g£ 



isi££*^TU < <7){JH£lJfc* U 

^Sr^A-flxTNJ^fc o 

¥A,$ACx;i/ • 7-y K<7) r ftt 

fc<7)19,800RMlJ] o Stlfcfe 1* 

ff^, «75\ -ftiR, -fntzgft^: 

•5^ Z^,#q h /<***: <S A^ 



%kZZkmZ , £l\(DfrU r ? 



M&S-hO>imtt. 19,800R 
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MSX2 + 
19.800R fJtSU 
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(i#tt^(7)^if^ s gto£f4g£g 
7>c7)^±iz-^^.-ttTS:M-r -1)4 ^"> 
^^1x^:^^4-9 (¥* 3 ) 

g|^<7)A^3(J: rCTRLl + [SPACE] 
*— To ~<7)V7 h(iMSX2+^ffl 

t.4 % ptt>;%(t^ y--*rb#g 

- MJ -y Viai^l7,000R[^lj]) 
?r-t2>y hTftl£ MSX2v«>>T'fc 
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^^mi5*n-c:L\§i\/isxffl^ , j>^{zitii^:=i>sn-;bii---K-M^ 



LF 7<>7<— K 

ESC i7t-7° 

CAN +-\'>-tz;U 

ht *'/■>/> ?/l^ 7* 

GS $0U— y-tr/NV— ? 

RS U-P — K4z/\V— # 

US P-~-y h-fe/NV-? 

VT 7> — T^mwif 

STX 7^-^7r+7h 
SUB ^77f-rfa-h 
SI ->7K> 

SO ->7b7"7h 
ZnZls Z.M£?cR bm^tz 
t&Olt^ P>hP-;UP— K 

(Jiifi(7)$ijfflin^9 fc«xzf^f>n 

fc fe <7)„ fe*j&" b 7° V > ? ^r^lj^l-r 

2>%g-(z«\ O^&H^MttA* 
— &.Lt£^Z£.i3<S>ZA.tZo 

m 2 <7>**&^ 'J tottM? £ £ 
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y - h*^(7)-l^" <7) J: -5 &M# 
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tZ.hX\ 3t5<7) *t'-y K.* 

-vMtr' fcarw, p>hp- 

jup- FlzM^XT—?t£Z%M 

mitmfetzcnx, 7°')>5>(nm 
93»£I5EA,T*(5H.\, 



Q0 






CR 
LF 
FF 
ESC L 

ESC / 
ESC f 
ESC r 
ESC R 

CAN 



ESC ( 
ESC ) 

ESC 2 

HT 

GS 

RS 

US 

VT 



ESC c 1 



m 



wmmm 



OD 
OA 
OC 

IB 4C 
IB 2F 
IB 66 
IB 72 
IB 52 
18 



IB 28 
IB 29 
IB 32 
09 
ID 
IE 
IF 
OB 






VFU^£j&7 
VFU^fr (gVFU$!£) 

m&*7nn (^vfu^:^) 



ib 63 3i yy h*7^7 • v-tv h 



#bjd»m 



& 



ESC N 
ESC H 
ESC E 
ESC K 

ESC t 



SUB U 
SUB L 



ESC h 1 
ESC h 
ESC q 



immm 



IB 4E 

IB 48 
IB 45 
IB 4B 

IB 74 



1A 55 
1A 4C 



IB 68 31 
IB 68 30 
IB 71 
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SI 
ESC X 

ESC Y 
ESC ! 
ESC " 



SUB V 
SUB W 
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OE 
OF 

IB 58 
IB 59 
IB 21 
IB 22 



1A 56 
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ESC A 


IB 41 
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ESC B 


IB 42 
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ESC T 


IB 54 
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SUB F 
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1A 47 


i/i8o"3s*esctf tr ^ ^ 
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ESC F 


IB 46 


K-7 bT ¥\/-vy¥? 


ESC D 


IB 44 


3 t°-^r- F 


ESC M 


IB 4D 


^>f 7-^f/^e-K 


SUB Q 


1A 51 


8TNB24K* bb -y^^^ 


SUB N 


1A 4E 


g|^*B27Ky Hfyf-»^ 


SUB E 


1A 45 


»*«30Ky h€vj-m%. 


SUB P 


1A 50 


»^H36Ky htTy^»S 



E5 tfu/h-f^-^jmMB 



IB^ 



EOT 

ESC + 
SUB 2 



ESC S 

ESC I 
ESC J 



ESC V 
ESC W 

ESC U 



16M!^ 



04 

IB 2B 
1A 32 



IB 53 
IB 49 
IB 4A 



IB 56 
IB 57 
IB 55 




24 K* mtti 



8 V-y 14*— & 
24F-7 VA*—P 



8 f.y h>f *-s?y u°-b 
24 Ky h>f *^-PV t°-h 



MSX2+x^-*-»US^^ 165 




me 

jisji^^-KST-ti, tgi * 

mtmzKm-kttT, ^6,800 

zthhz&teo ^ A, ft £#n>£ 

S-W -i > L T 7° ') > 9 izm. £ 
7°U /^^VvX^via?^ 

£ Jitil2';b*r-5> t m^n \1t\ JiSiH 
^zi - KUT'ISt^tiJ 'j st bft 

T^-S>(7)(i&H737Ef T' y-f^Wg 
i|(ZtJ s &H76201itf$<7)^T^-i> 
=l-K^$ffl?ni)^lt^ 7°'J 
>?(I<£oT, g§fT'#3yV£<7> 

m> =i - k tjsft % it £ - coie 

*TMLT^§/\"tVZ 7 ^, 
V-- 7 7+f-<7)3HMT12, 
&H7620fr«b&H7633£T<7X 3(M0 

<7)-;it^=i- K^im-f^s^; 

ESC" + ";I^=l-K 

%-7«;>^C^So fefc;U£ 

LPRINT CHR$(&H1B) ; "+" ; 
LPRINT CHR$(&H76) ; 
LPRINT CHR$(&H20) ; 

m^xmm. ufc t*«y w s-vm 



■r%cHR$(4)s-am(i^7o — /£ 

a- K^<7)}I^^EP^-r-S>(75^:|l] 

i;#HT\ ^#ep^t*# a £ i» 

b26ffiX-9&*§mU 28(Wt^ 
b350ffT^i L fc^SrEpTt ■& 
tzth(Db<T) 160^tT"&HF418(Z 1 

mWLtz±i{Z s BIOSfciH^K? 

■i/itz&zjc&zi- m&m*m 
±T%tzsb 36om'%.mEmi 

Tl^-fo *fc38(Mr^b43(Wf«, 
7. h-A? — ><7)t-*— ?/c 

fcf -y h -f y - v EP^ i: Jfr<fc*r 

T^-5Z^ 3t*a-K«3afcS.tf 
WT\ ii^<7)jl^i: |i| li j: •) piU 

JtTfcEP^T'#^>A^' 

fc L*i&l^(t£\ 'J * h<7)T<7)EP 

t'yK^-y EP^T'ti C <Dffi.f$ 
•y h x 24 K -y h C7);£:££: L Xfflb 

^timtfx-ztzfrmztoo b*>% 

S^^siftA,^,, 



5^?^^CDtr>^b7n^^A 




test program for MSX 24 dots Kanji printer 
Draw test pattern by 24 dots GAIJI print, 
by nao-i on 27. Jun. 1989 



set RAW print 

ESC code 

J IS code for GAIJI 



end of GAIJI data 



100 

110 

120 

130 

140 ' 

150 DEFINT A-Z 

160 PORE &HF418,1 

170 ES$=CHR$(&H1B) 

180 AH=&H76 : AL=&H20 

190 '=== down load GAIJI ======= 

200 LPRINT ES$;"+";CHR$(AH);CHR$(AL); 

210 RESTORE 380 

220 FOR 1=0 TO 71 

230 READ DT$ 

240 LPRINT CHR$(VAL("&H"+DT$)); 

250 NEXT I 

260 LPRINT CHR$(4); 

270 '=== print GAIJI =========== 

280 FOR RA=1 TO 8 

290 FOR C0=1 TO 8 

300 LPRINT ES$;"K"; 

310 LPRINT CHR$(AH);CHR$(AL); 

320 LPRINT ES$;"N"; 

330 NEXT CO 

340 LPRINT 

350 NEXT RA 

360 POKE &HF418,0 

370 END 

380 DATA 01,00,00, 03,00,00, 07,00,00, OF, 00,00 

390 DATA IF, 00,00, 3F,00,00, 7F,00,00, FF, 00,00 

400 DATA FF,01,00, FF, 03,00, FF,07,00, FF,0F,00 

410 DATA FF,1F,00, FF,3F,00, FF,7F,00, FF,FF,00 

420 DATA FF,FF,01, FF,FF,03, FF,FF,07, FF,FF,0F 

430 DATA FF,FF,1F, FF,FF,3F, FF,FF,7F, FF,FF,FF 



reset RAW print 






mzmzD, mm8^t-^^^.zm^[ytzv 




KJISH-K 



■7 'J >^*<|R-7(7)(i x JIS 
il^=i- Ko — ^MSX-DOS(7)3^* 

tzfr h m$ 7°>j > & xm&<n$m 



■Mlt, DOSZ^MSXZ + tfW^M 

t%mwh%Mz tztMtm 

^" tl^XP&mt, BASIC(7)7°P 

8A BF 8E 9A 
1 1>?->7 MIS3- KT^h?n 



166 msx2+t? -jjjunm 



MSX2+«c*MHM 



Tl^„ tZ\?>t>\ 

LPRINT ";1^" 
£llfrt*£* 7°U>?tz(J, 

1B 4B 34 41 3B 7A 1B 48 

hn— jp'3— Ki» JlSa— KTH 

Jifcgt^BASICWi.Sc^lJfcJIS 
n-K£->7 MiSa- Kfc£»f 

CALL JIS(A$,"}1^") 

*3441" i: L^-5 JlSn— K<7>16]|^ 

A$(zftA?n5 e -3*U* 

CALL JIS(A$,"j||^:") 

PRINT A$ 
£^iTf tlli\ M®(Z*3441" £ £ 

fittrnx'ttKi. -X^mxh^z 
£iz : ,iML£iteo 

CALL SJIS(A$,";1^") 
T'(& £^£ftA$[Z*8ABF"£^ 
9 v7 h JISzi- K£\ ft A3 ft* 

Sf£(Z, ->7 MSP- K*rb JIS 

D0S7°P^* ; 7 5>^T^--y^ (7 

**-flJ-«3090R [*£A]) £ 

G>>7 h JlSn — K<7)ffl 1 /t*f f* 

H, fg2^-f h£L£-f£ 
®H#&H9F«fcU'h3U*U& Hfr 

b&H71£3|< 
®H*<&H9FJ:U*#(tftl£ Kifr 

b&HB1£f|< 
®H£2feLT1 £7JP;L£o 
(DL#&H7F«fctJ:*:£ltft(£ b&» 

b1 £3I< 
©L^&H9EJ;'J/J^(ttllj; Lfr 

b&H1F£3|< 
®L#&H9EJ:tJ:fc#ltftl£ LA" 

b&H7D£3|# s H(Z 1 £;bq;LS 

Zq LXftbtltzHt LCMfefiK 
JlSrj— K<75fg 1 /<-f r £M2/\*-f 

LT<frTfo! 



H^BASICr 

MSX2+ T"}/Sl£ftfo1l£ BASIC 
(iff TO I t i^ fc-tf fl*fi» # EP^ 

m.m^\ — jl 

LPRINT CHR$(&H1B);"t"; 
LPRINT "%$&■ 

tf£> HPi(zEP^LT,&££}i# 

•;i^ basics; jisp- KuaaJit 

£T£p> hP-JUP-KT-&* 
•ESC K^gKitfjlZiiAqU 

IB 4B 34 41 3B 7A 1B 48 
£ ^-9 x-7 £7°'J >?^oT 

;i^BASI07)->7 p JIS=*JISg»g£ 
&*fttl£1£b-f(Z x 7°P^7A(Z 
ct ^TJISP- FH^&T*33fc£ 

=£g!#J[DT$(7)F*g!g£ x *fi»#T*E[] 

:rt* -9-7*^— ?->£:«, *?\ Z 

<7)7°P 77 AT'4Ml:£^£EP^? 

-frct^f*^ Mii^'Mtz^ 

CALL AKCNV (A$,DT$) 

^zm^LXLihio §fcn, EP 

^Lfcl^^lJco^-^^b 1 £ 
=rf-3BWfctJLT, JISP-KtZlJ 

&r* fc t. i.(t, %<r&&tf **r 

ftfc, JI$(Z*3D44*#ftA£ft£ 

£btZ35CtfT<7\ 

Hl= VAL("&H"+ LEFT$(JI$,2)) 

&H3D £ in JISP- K(7^_bfi/s-f 

h** 360ff<7\ 

LO = VAL ("&H" + RIGHT$ (Jl$,2) ) 
X\ m U < LOU &H44 fcC^ Tf±' * 

-< r#ft\<*ft* 
*tx> «»#-;i^Ep^^m^ 

f£ *ESC t" (ZMltT, JISP- 
K*«ftX*ftfc*P» 

CHR$(HI);CHR$(LO); 



fSED^tl-V^b^P^^A 



«*>»**- H?fc J: ^ 



100 ' 

no ' mmzm*®* 

120 ' by nao-i on 2. Jul. 1989 

130 ' 

140 CALL KANJI2 

150 DEFINT A-Z 

160 S0$=CHR$(&HE) 

170 SI$=CHR$(aHF) 

180 SU$=CHR$(&H1A) 

190 ES$=CHR$(4H1B) 

200 POKE &HF418.1 

210 dt$= "*»*»*" 

220 GOSUB 280 : LPRINT 

230 LPRINT SOS; : 

240 LPRINT SU$;"V"; : 

250 LPRINT S0$;SU$;"V" 

260 POKE &HF418.0 

270 END 

280 ' 

290 ' DT$fc*»S-C9l¥-f &1f7'/l'~f->' 

300 ' 

310 CALL AKCNV (A$, DT$) 

320 IF LEN(A$) < 2 THEN RETURN 

330 CALL JIS(JI$, A$) 

A$=NID$(A$,3) 

HI=VAL("4h"+LEFT$(JI$,2)) 

L0=VAL ("&h"+RIGHT$ (JI$ , 2) ) 

LPRINT ES$;"t";CHR$(HI);CHR$(LO);ES$;"H"; 

GOTO 320 



; * 


SO code 


•* 


SI code 


•' 


SUB code 


;* 


ESC code 


; ' 


Set RAW print 


■ * 


tXFt-* 


LPRINT 




GOSUB 280 


: LPRINT SIS : LPRINT 


GOSUB 280 


: LPRINT SU$;"¥" 


GOSUB 280 


: LPRINT SI$;SU$;"«" 


■ * 


Reset RA¥ print 



340 
350 
360 
370 
380 



$feiflc7)^:^ojis«=# 



*^ 






m 
m 



fc©o *n-e , n©x : ?tf90siiiEiyt!KJBr 
7U77^bai^^nr<§©fc"o 



b tztZ. *>T\ *ESC H" T'^fk' n° 

(ic«6(z7u >i?(nm:m*\titz 
ntmiztm) izmrMmt. ?° 
i)>? ®m<n : ,iMmmT>mm l tz 

frhj£z.Xi^Z>£te. 7'D^7A 
*ftZ±.X'<7i— Wn 7t- tzfr b , 

tZhX\ ##ST*lC#L^Tfc 

•*«*r* (i. X^<7)i6]#T*(i^< 
7° U > ^ <7)[6] # iz^ l Ttt^Jj 

i^n§, -^s ( j^»#Ep^©ii 
-£tt*mfc±"vmfcX'iz$>tz 'j , 

*«ffi^" ^ ? ^iteA" iz btzZt^ 
iMi 'J ^ h T^EP^M^TIi, 
^7^^ b 2 fr § ^^iJ/AAT; 3 n g 
*^^AL/ct.c7)/zo 






?r s 7°i)>5>izmrz>zt:iz 

^^^ItTIi, MSX(7)77h7x 

IV7 h/N77(Z;tALs 7°Pffl 

^/•c, Z<7)zi-i— T|iU_b(f 

t (5 l i^rt^^, Mrni * £• t, ^b# 

1=107-24 

^^fB>^[EmWaj6-11-1 

MSXV^v>HS^ 
fcot^'J/c^MSX2 + f^ 



MSX2+7^^-^;ug^^ 167 




■5-ft fc^Liv\ s X;u>r'-A^ib 

ti(7)^p n (7)# L i ^f£73 >£& i:'(z 
-?^T(J. 126~127^-v(7)t#Bj 






STAR LASER U*h(D 



1000 
1010 
1020 
1030 

1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

1210 

1220 

1230 

50 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 



'=:== "LASER. OBJ" V7XLK 7° 09" =?L === 
'** f 4 7C7 J-VMT" »" t")30f"7. ** 
CLEAR 10 ,2 < HDG00 :MAXFILES=1 
DEFINT A-Z:SCREEN 0:WIDTH 40 

PRINT"?" -9 fp*1h- .-' 11*3=," : PR I NT 

GOSUB 1200 

PR I NT " 7° D9" vL t" -9 *i »> 9 " : PR I NT 

DEFUSR=&MDC00:A=USR (0) 

IF A THEN LN!=A:GOTO 1270 

'••• 77-f'Jb ?9tI-< #•• 

PRINT"*7"5/"x9b 77-Ub =3 ^9tr-i>a9 x"7" 

pr i nt " 2* m> " iriwr rv " : pr i nt 

OPEN "laser.obj" AS #1 LEN=1 

FIELD #1,1 AS B* 

FOR A=S<H1000 TO S<H289F 

LSET B*=CHR*(VPEEK(A) > :PUT #1 
NEXT A 
CLOSE #1 

PR I NT "*9V7I>?" :END 
'••• l-xvil- J H*3=\ •€* 
A=2<HDC00 : C=0 : RESTORE 1 290 
READ A*: IF A*="end" THEN RETURN 
B=VAL("?<h"+A*) :IF LEIM<A*>>2 THEN 12 

POKE A,B:C=C+B:A=A+1 :GOTO 1220 
IF C=B THEN C=0:GOTO 1220 
LN ! =PEEK ( ?<HF6A3 ) +PEEK ( &HF6A4 ) *256 
PRINT LN! ;"^"39Z =,7.71" 7*3* M 
BEEP: END 

DATA ED ,73 , A9 ,DC ,AF ,08 ,CD ,4F ,4B8 
DATA DC , 3 A , A6 , DC , A7 , 20 , 0C , CD , 438 
DATA 65, DC ,20 ,F2 ,3E ,FF ,32 , A6 ,468 
DATA DC , 18 ,EB ,E5 , 13 , 13 , 13 ,CD ,3CA 
DATA 65 , DC , E 1 , C8 , 06 , 0C , ED , 5B , 444 
DATA A7 ,DC ,CD ,6F ,DC ,4F ,08 ,81 ,473 
DATA 08 ,EB ,CD ,4D ,00 ,23 ,EB ,78 ,393 
DATA IF, 30, 01 ,23, 10, EC, ED, 53, 2AF 
DATA A7 ,DC ,CD ,6F ,DC ,4F ,08 ,B9 ,4AB 
DATA C2 ,8E ,DC ,08 ,C3 ,06 ,DC ,2A ,403 



1390 

1400 

1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 

1500 

1510 
1520 
1530 
1540 
1 550 
1560 
1570 
1580 
1590 

1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 

1800 

1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



99,DC,7C, 
99, DC, 01 , 
65, DC, 20, 
BE,C0,13, 
7C,DC,07, 
7C,DC,B1 , 
38,0C,FE, 
05,C6,0A, 
DC,22,F8, 
C9,01 ,80, 
53,54,54, 

10,00,00, 

7 D9"=?£ f 



B5,CA, 

04,00, 

EB,C9, 
23,10, 
07,07, 
C9,7E, 
0A,D8, 
FE,10, 
F7,ED, 

00,00, 

45, 4E, 
010, en 
•_« ■ 



'STT 
'FE00 
'CA7B 
'A720 

'0102 

'FE04 
' 328D 
' 93D4 
' 773A 
'BC01 
'9CBC 
'119F 
' BCA7 
' 00ED 
'C9C9 
'033E 
' AFCD 
'BC11 
' 0DD3 
' 7F7F 
' 457F 
'BC06 
'0E26 
'81 CD' 
' 8ED4 
' CD26 
'C911 

' 2000 
'0120 

'E1C9 
'0906 
'CB00 
' BCD4 
'D401 
'0115 
' CDB3 
' 2 1 0D 
' CDB3 
' D487 
'69F1 
' DDE9 
'747A 
' DEA9 
'34BA 
' A538 

'00C0 

' 0DE2 



BC8F 
BCFE 
3823 
00D6 
3007 
D479 
3292 
91BC 

0500 

CD09 
FD01 
C8F3 
B0FB 
C9C9 
7FCD 
5600 
E31A 
CD 16 
7F7F 
7F7F 
090E 
CDFC 
4D00 
A728 
BD11 
25D6 
EDB0 
00ED 
E5DD 
08DD 
16DD 
0118 

5001 

00ED 
BD92 
BFCD 
BD22 
4F06 
E459 
BD34 
3238 
B332 
0A95 
DD00 
90C0 
7BA2 



D400 
01CA 
237E 
30FE 
3C87 
328F 
D421 
A720 
EDB0 
BDCD 

0500 

2197 
CD90 
C9C9 
5600 

2100 

0119 
D3FB 
7F7F 
7F7F 
16C5 
BC0C 
2310 
0747 

0020 

CD2F 
E306 
B0E1 
El CD 
7E00 
2310 
00ED 
EDB0 
B03A 
32AB 
B3BD 
AED4 

0009 

6928 
1808 
1418 
6B84 
648F 

0001 

A804 

8001 



BC2A 
F3C1 
D65F 
0530 
0707 
D4AF 

0000 

1021 
3EFF 
69BD 
EDB0 
BC11 
00C9 
C921 

2100 

18CD 
00CD 
C953 
7F7F 
3030 
CDF7 
0C06 
F6C9 
1166 

0106 

BDCD 
0FC5 
C110 
56BD 
1 7DD 
F0C9 
B021 
21F2 
8DD4 
D47C 
22B2 
22B0 
7E23 
3063 

0000 

0025 
08F1 
5CCA 
0306 
C435 
B359 



8E , DC 
ED,B0 
06,03 
F9,C9 
07, 4F 
23, D6 
D6,ll 
D8,2A 
7B,A9 
3A,8F 
44,00 
d 



F8F7 
228A 
328C 
0147 
0707 
328E 
2290 
9FFD 
3291 
F321 
FBC9 
9FFD 
00C3 

0018 
0001 

E5BC 
5C00 
544F 
5343 
0E06 
BCC1 
2078 
21C0 

0019 

00CD 
2FBD 
CD4B 
F2CD 

0108 

CB08 

C8D4 
BE11 
5721 
9232 
D421 
D4C9 
666F 
D5B2 

0000 

6A08 
DFEE 
60AB 
0D1F 
7BBF 
B55E 



,11 ,4EB 
,CD,3E4 
,1A,338 
, CD, 453 
, CD, 290 
,30,479 
,38,343 
,9B,380 
,DC,5DA 
,E6,2F9 
,00,1D2 



7CB5 23 
D47E 9F 
D47E A7 
D605 06 
4F78 E5 
D432 FB 
D4AF 50 
1197 8A 
BCCD 72 
92BC B2 
3A91 91 
0105 D6 
A1C8 C0 
0100 79 
8001 FF 
2 ICC 65 
F3CD 32 
434B 10 
4F52 3F 
CDF7 37 
10F9 35 
E601 8B 
BD3A F0 
10FD 0C 
5C00 ID 
D501 3 A 
BDE5 6E 
4BBD A5 
00DD B8 
16DD E4 
D311 E8 
11D4 D0 
94D4 DD 
07BF 69 
ACD4 A9 
9FBF FA 
3A8E 12 
C9DD E7 
E474 81 
006A C2 
9172 E0 
0546 4C 
9318 AS 
1E00 B6 
7CEE 0F 
CFE1 6B 



168 ->3-\- - 7°n^7A • T-f 5>K 





SHORT PROGRAM ISLAND 

















1990 


'E141 


4161 


61FF 


DBB7 


0306 


5C29 AF 


2000 


'83FF 


5FFB 


9208 


C9C1 


837E 


BDDD 4A 


2010 


' DBDB 


BBA9 


087E 


BDBD 


DDBD 


B9A8 5F 


2020 


'8894 


79C3 


B76E 


D4B8 


6792 


B66C 83 


2030 


'2B66 


CC19 


73DE 


3069 


D3A6 


1CD9 51 


2040 


'B32E 


84D9 


3366 


D1B6 


2D08 


0A1A 08 


2050 


'141E 


363A 


5510 


1430 


2C56 


74B2 FB 


2060 


'6A36 


3A0C 


080A 


0A19 


BD58 


3418 77 


2070 


'1818 


3435 


7B68 


8161 


6121 


C102 1A 


2080 


'0408 


10EF 


1188 


4402 


0408 


10EF 0F 


2090 


'1188 


4422 


EE01 


0204 


08F7 


0022 24 


2100 


'EE01 


0204 


08F7 


0080 


808A 


8A80 AC 


2110 


' 7F00 


F804 


04A4 


A408 


F804 


AB04 26 


2120 


'1A02 


1A03 


1A02 


7C00 


0000 


00F8 EF 


2130 


'0404 


0477 


CCEE 


CC00 


EE00 


EE77 4B 


2140 


'CCEE 


CC00 


EEO0 


EE00 


EE77 


BB00 CD 


2150 


'7F7A 


4200 


EE77 


BB00 


7F7A 


422C 8F 


2160 


' 2C6D 


6D74 


5400 


FF00 


0200 


0100 5F 


2170 


'FF00 


0000 


FF00 


FFFF 


0000 


0027 82 


2180 


' 3507 


0605 


0807 


0A09 


13BF 


1DBF 99 


2190 


'27BF 


31BF 


36BF 


3FBF 


46BF 


4DBF 73 


2200 


' 52BF 


57BF 


5FBF 


66BF 


73BF 


76BF 44 


2210 


' 7DBF 


88BF 


8DBF 


9ABF 


0000 


00FC 68 


2220 


'FE08 


FC08 


FC01 


FC48 


FCFE 


0BFC B4 


2230 


'0BFC 


0BFC 


FE04 


0404 


FC46 


FCFE 08 


2240 


' 08FC 


FB02 


FE02 


0202 


FCFE 


09FC 0C 


2250 


'49FC 


09FC 


07FE 


0CFC 


0CFC 


0CFC 73 


2260 


'FE03 


FC03 


FC03 


FC04 


0404 


FC0B 81 


2270 


'FCFE 


08FC 


FE05 


0505 


FC07 


FCFE 89 


2280 


' 4AFC 


01FC 


0AFC 


01FC 


0AFC 


FE50 23 


2290 


'FCFB 


08FE 


02FC 


07FC 


0505 


05FC 2C 


2300 


'0101 


01FC 


FE08 


0808 


FCFE 


A5BF 9F 


2310 


'0FC0 


D9C0 


C17A 


C15B 


A17C 


C15A 96 


2320 


'A179 


A15C 


1D7D 


E13A 


A159 


1978 ED 


2330 


'C17B 


1 DSD 


1958 


E19B 


E13B 


E19A 27 


2340 


'2139 


2D9C 


253C 


2999 


053D 


0D9D 59 


2350 


'0138 


0998 


391 A 


35BB 


1D1C 


31BA 9 A 


2360 


' 1919 


19B9 


3D IB 


1DBC 


1 CFC 


3DDB FF 


2370 


' 30FA 


39DA 


18F9 


1 DDC 


34 FB 


19D9 67 


2380 


' 00D9 


1 5FB 


04DC 


09F9 


1 0DA 


15FA 2B 


2390 


' 1 0DB 


0DFC 


FF02 


18FA 


38D0 


19BA 0D 


2400 


' 68D0 


1916 


19B6 


00D6 


0196 


09F6 AF 


2410 


'18F6 


19D6 


2937 


39D7 


0936 


10D7 42 


2420 


'2197 


3917 


C198 


10D8 


1957 


31B7 E3 


2430 


' 34F8 


15F7 


1977 


15F8 


94B8 


9638 D2 


2440 


'30F7 


9618 


9498 


C138 


9658 


6178 93 


2450 


' 9478 


3D 18 


A1D9 


9678 


6158 


9458 21 


. 2460 


'10D9 


El 59 


35B8 


6119 


3DD8 


15F9 CE 


2470 


' 6599 


A0F9 


A IDA 


6539 


611A 


El 79 53 


2480 


' 1 5FA 


EISA 


61B9 


A0FA 


A19A 


10DA 76 


2490 


' 1 5FB 


A13A 


94BB 


61BA 


39 IB 


C19B 7B 


2500 


'949B 


961B 


31BB 


963B 


E17A 


30FB 9E 


2510 


' 6 1 5B 


965B 


947B 


C13B 


10DB 


3D1C 9A 


2520 


' 39DB 


2D3C 


617B 


945B 


967B 


3DDC 0C 


2530 


'34FC 


15FC 


1D7C 


10DC 


259C 


ID ID CD 


2540 


' 0DFD 


35BC 


04DD 


1D5C 


059D 


0D3D 0E 


2550 


' 1 ODD 


1CFD 


1DBD 


FF04 


18F7 


38B8 FD 


2560 


'19B7 


68B8 


18FB 


38D8 


19BB 


68D8 24 


2570 


'C156 


CI 57 


C177 


C176 


6575 


3936 0B 


2580 


' 6558 


3597 


6555 


3D37 


6578 


3196 66 



2590 


'6135 


6138 


6198 


6195 


El 15 


E139 


94 


2600 


'E1B8 


E194 


3116 


6159 


3DB7 


6174 


6C 


2610 


'3517 


6179 


39B6 


6154 


E118 


El 99 


A9 


2620 


'E1B5 


E134 


2519 


2DB9 


29B4 


2114 


8A 


2630 


'051 A 


0DD9 


09B3 


00F4 


253A 


2DD8 


A3 


2640 


'2993 


20F5 


A15A 


A1D7 


A173 


A0F6 


91 


2650 


'A17A 


A1D6 


A 153 


,A0F7 


2D9A 


29D5 


73 


2660 


'2133 


24F8 


0DBA 


09D4 


0113 


04F9 


98 


2670 


'1DF8 


1592 


1 8D5 


113B 


35F7 


3D72 


68 


2680 


' 38D6 


315B 


31F6 


3552 


3CD7 


397B 


77 


2690 


'J9F5 


1132 


1CD8 


159B 


91F4 


9512 


98 


2700 


' 90D9 


95BB 


91F3 


94F2 


90DA 


95DB 


35 


2710 


'89F2 


80D2 


84DB 


8DFB 


95D2 


90D3 


B3 


2720 


'94FB 


91 FA 


95B2 


90D4 


951B 


91F9 


B2 


2730 


' 1 59 1 


18B5 


113C 


1E18 


3971 


30B6 


38 


2740 


'355C 


3E17 


3151 


34B7 


3D7C 


3A16 


94 


2750 


'1131 


1CB8 


159C 


1A15 


0990 


0095 


B8 


2760 


' 053D 


0E38 


1970 


1096 


1D5D 


1637 


36 


2770 


'1950 


1097 


1 D7D 


1636 


0130 


0498 


F9 


2780 


' 0D9D 


0A35 


FF06 


18B6 


28B0 


1916 


BC 


2790 


'40B0 


1951 


5088 


195B 


50D8 


1996 


39 


2800 


' 60B0 


19F6 


78B0 


2129 


C211 


0038 


D5 


2810 


'0140 


04CD 


5C00 


2169 


C611 


0000 


A4 


2820 


'4E23 


4623 


78B1 


2812 


D5EB 


09EB 


95 


2830 


'4E23 


0600 


E509 


E3CD 


5C00 


E1D1 


B8 


2840 


'18E6 


1114 


2001 


0800 


CD5C 


00C9 


F6 


2850 


'003F 


FC30 


487D 


DF3F 


3FDF 


7C48 


26 


2860 


'30FC 


3F00 


00C0 


0000 


00E0 


98E4 


AD 


2870 


'FFC0 


7000 


0000 


C000 


0000 


0000 


9C 


2880 


'0000 


00B6 


6D00 


0000 


0000 


0000 


BF 


2890 


'0000 


0000 


0000 


00DB 


B600 


0000 


50 


2900 


'0000 


0000 


0000 


0001 


0005 


10ED 


53 


2910 


'1601 


0400 


0100 


0000 


0000 


0000 


6F 


2920 


'502C 


DEAF 


FF56 


2C50 


0000 


0000 


49 


2930 


'0001 


0700 


0000 


0100 


0000 


0001 


53 


2940 


'0007 


0100 


00E0 


F038 


F018 


FC2C 


93 


2950 


' DC78 


50F0 


78F0 


E000 


0000 


0003 


72 


2960 


'0C32 


7793 


6CE7 


187B 


0700 


0000 


A7 


2970 


'0000 


00C0 


304C 


EEC9 


36E7 


18DE 


AD 


2980 


' E000 


0000 


0000 


0003 


0C12 


77FF 


24 


2990 


'B47B 


0700 


0000 


0000 


0000 


00C0 


1A 


3000 


'3048 


EEFF 


2DDE 


E000 


0000 


0000 


6A 


3010 


'0001 


0316 


36FA 


3C47 


B3A3 


463D 


10 


3020 


'FC02 


0E3E 


8932 


66CC 


B870 


E30E 


60 


3030 


'7870 


07F8 


00AA 


A8A0 


0000 


0C03 


48 


3040 


'1831. 


6215 


1562 


3118 


030C 


0000 


D7 


3050 


'0000 


30C0 


188C 


46A8 


A846 


8C18 


EB 


3060 


'C030 


0000 


0000 


6C33 


1801 


0215 


AA 


3070 


' 1 502 


0118 


336C 


0000 


0000 


36CC 


7B 


3080 


'1880 


40A8 


A840 


8018 


CC36 


0000 


7D 


3090 


'0000 


0000 


0002 


0C38 


5DFF 


8B01 


AB 


3100 


'0100 


0000 


030E 


3878 


3070 


E0E0 


CD 


3110 


' 80DC 


FFF0 


C000 


0000 


0000 


0000 


D8 


3120 


'020C 


385D 


FF8B 


0101 


0000 


0000 


07 


3130 


' 0000 


0000 


0000 


00E0 


FCFF 


F8B8 


92 


3140 


' 1 C0E 


0300 


0000 


0003 


0409 


2B3F 


39 


3150 


'0433 


1D00 


3163 


E300 


0000 


00C0 


C4 


3160 


'2090 


D4FC 


20CC 


B800 


8CC6 


C700 


01 


3170 


'0000 


0003 


0409 


2B3F 


0433 


1D00 


CF 


3180 


'2C5C 


B800 


0000 


00C0 


2090 


D4FC 


4F 
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3190 


'20CC 


B800 


E4F2 


F300 


0000 


0003 


^ 

BF 




3790 


' 00FF 


3C3C 


FF00 


FFFF 


BBBB 


88FA 


AA 


3200 


'0409 


2B3F 


0433 


1D00 


376E 


CE00 


FD 




3800 


' 1A7B 


7BFB 


1B7A 


7A5F 


58DE 


DEDF 


16 


3210 


'0000 


00C0 


2090 


D4FC 


20CC 


B800 


El 




3810 


' D85E 


5E3B 


7BF7 


EEDC 


38F0 


E0DC 


05 


3220 


'343A 


1D00 


0006 


1925 


5D5E 


3E7E 


27 




3820 


' DEEF 


773B 


1C0F 


07E0 


F038 


DCEE 


88 


3230 


'7067 


2F2F 


1703 


0700 


00E0 


F0F4 


41 




3830 


'F77B 


3B07 


0F1C 


3B77 


EFDE 


DC7D 


3F 


3240 


'ECEE 


F662 


AADA 


F2EC 


ECD8 


2000 


B9 




3840 


'B1CD 


DEBF 


BF1F 


EFBE 


8DB3 


7BFD 


9D 


3250 


'0000 


0000 


0304 


0A08 


0804 


0300 


El 




3850 


'FDF8 


F7EF 


1FBF 


BFDE 


CDB1 


7DF7 


E5 


3260 


'0000 


0000 


0000 


0000 


8040 


2020 


El 




3860 


' F8FD 


FD7B 


B38D 


BE7D 


B1CD 


DEBE 


E7 


3270 


'2040 


8000 


0000 


0000 


0000 


0000 


CI 




3870 


'BE1C 


E0BE 


8DB3 


7B7D 


7D38 


07E0 


33 


3280 


'0100 


7FBF 


7F00 


0100 


0000 


0000 


80 




3880 


'1CBE 


BEDE 


CDB1 


7D07 


387D 


7D7B 


58 


3290 


'0000 


00CC 


DE44 


BBFE 


BB44 


DECC 


D0 




3890 


' B38D 


BE7D 


B1CD 


DCB8 


B304 


E4BE 


3E 


3300 


'0000 


0000 


0000 


000F 


3803 


7A01 


95 




3900 


' 8DB3 


3B1D 


0D00 


07E0 


00B0 


B8DC 


0E 


3310 


'7A03 


380F 


0000 


0000 


0000 


00F0 


49 




3910 


'CDB1 


7D07 


000D 


1 D3B 


B38D 


BEFF 


72 


3320 


' 1CC0 


5E80 


5EC0 


1CF0 


0000 


0000 


2D 




3920 


' C7A3 


8383 


C7FF 


FF99 


FF99 


FF99 


70 


3330 


'0000 


0000 


0000 


0001 


0100 


0000 


2F 




3930 


'FF99 


FF64 


8932 


8558 


16A4 


4900 


06 


3340 


'0000 


0000 


0000 


0000 


0000 


0080 


AF 




3940 


'0630 


0016 


095F 


3A57 


5D36 


0068 


46 


3350 


'8000 


0000 


0000 


0000 


0000 


0000 


2F 




3950 


' 90FA 


5CEA 


BA6C 


365D 


573A 


5F09 


C8 


3360 


'0000 


0103 


0301 


0000 


0000 


0000 


37 




3960 


'1600 


6CBA 


EA5C 


FA90 


6800 


0066 


A2 


3370 


'0000 


0000 


0000 


80C0 


C080 


0000 


B7 




3970 


' 99FF 


6699 


6600 


345A 


5A34 


34 5 A 


49 


3380 


'0000 


0000 


0000 


0000 


0001 


0307 


C2 




3980 


' 5A34 


4006 


08FE 


FCC0 


D4C4 


DC80 


D3 


3390 


'0703 


0100 


0000 


0000 


0000 


0000 


CD 




3990 


'0080 


0608 


EECC 


8800 


EECC 


8800 


E5 


3400 


'0080 


C0E0 


E0C0 


8000 


0000 


0000 


0D 




4000 


'C006 


08FE 


80AA 


92AA 


82BE 


0000 


57 


3410 


'0000 


0000 


0307 


0F0F 


0F0F 


0703 


5D 




4010 


'00E1 


E1E1 


El 74 


2C86 


BAB4 


C7C5 


FB 


3420 


'0000 


0000 


0000 


0000 


C0E0 


F0F0 


DD 




4020 


' C7DE 


C7F9 


C710 


C825 


C83E 


C85D 


4F 


3430 


'F0F0 


E0C0 


0000 


0000 


0000 


030F 


6F 




4030 


'C880 


C800 


0001 


0A06 


1F08 


1007 


AE 


3440 


'1F1F 


3F3F 


3F3F 


1F1F 


0F03 


0000 


F9 




4040 


'B60B 


000C 


060D 


000F 


0078 


0100 


16 


3450 


'0000 


C0F0 


F8F8 


FCFC 


FCFC 


F8F8 


79 




4050 


' 080D 


07BE 


0E02 


0B00 


0C10 


0D00 


34 


3460 


' F0C0 


0000 


030F 


3F3F 


7F7F 


FFFF 


B5 




4060 


'0810 


0050 


0E18 


0800 


0F00 


6501 


3F 


3470 


'FFFF 


7F7F 


3F3F 


0F03 


C0F0 


FCFC 


E9 




4070 


'0002 


6403 


0008 


1009 


1007 


BC0B 


A7 


3480 


' FEFE 


FFFF 


FFFF 


FEFE 


FCFC 


F0C0 


85 




4080 


'000C 


050D 


040E 


1008 


0009 


000F 


07 


.3490 


'7CC6 


C0CE 


C6C6 


7C00 


7CC6 


C6C6 


2B 




4090 


'0000 


0106 


0810 


090C 


061F 


07A6 


0D 


3500 


'C6C6 


7C00 


3844 


C6C6 


FEC6 


C600 


C5 




4100 


'0B00 


0C14 


0D00 


0E07 


0900 


0F00 


72 


3510 


'C6C6 


C6C6 


6C38 


1000 


C6EE 


FEFE 


41 




4110 


'8301 


0008 


1006 


0007 


B60B 


000C 


E8 


3520 


' D6C6 


C600 


FEC0 


C0FC 


C0C0 


FE00 


9B 




4120 


' 060D 


000E 


0208 


000F 


005A 


0100 


7D 


3530 


'FEC0 


C0FC 


C0C0 


FE00 


FCC6 


C6C6 


El 




4130 


'080C 


07BE 


0E00 


0050 


0E00 


005A 


1C 


3540 


'FCCC 


C600 


0206 


030B 


0B1B 


3D33 


IB 




4140 


'0E00 


0050 


0E00 


0800 


0F06 


1F07 


CB 


3550 


'6F4F 


CB8B 


8584 


8281 


80C0 


80A0 


9B 




4150 


'B708 


0C0E 


0006 


1A0E 


0006 


120E 


F8 


3560 


'A0B0 


7898 


ECE4 


A6A2 


4242 


8202 


IB 




4160 


'0006 


0C0E 


0006 


080E 


0006 


040E 


4C 


3570 


'0206 


0305 


050D 


0E09 


1B1B 


1313 


B0 




4170 


'0008 


000F 


00C8 


0105 


0810 


07BE 


0E 


3580 


' 1514 


1211 


80C0 


8080 


A0A0 


A0C0 


DC 




4180 


'0B0A 


0C00 


0D08 


0E00 


0B09 


0E00 


74 


3590 


'E0E0 


A0A0 


5050 


9010 


0206 


0301 


28 




4190 


'0B08 


0E00 


0B07 


0E00 


0B06 


0E00 


D4 


3600 


' 0303 


0307 


0F0F 


0B0B 


0705 


0301 


7C 




4200 


'0800 


0F00 


1401 


0008 


0C07 


BE0E 


E7 


3610 


'80C0 


8000 


8080 


S0C0 


E0E0 


A0A0 


7C 




4210 


'0000 


3C0E 


0000 


640E 


0000 


8C0E 


3D 


3620 


' C040 


8000 


0206 


0303 


0B0B 


0A07 


31 




4220 


'0000 


B40E 


0000 


DC0E 


0008 


000F 


00 


3630 


'0F0F 


0B0B 


1514 


1211 


80C0 


8040 


Bl 




4230 


'F3FD 


E5DD 


E5E5 


D5C5 


F508 


F5CD 


D5 


3640 


'4060 


E020 


B0B0 


9090 


5050 


9010 


11 




4240 


' D0C8 


CD 16 


C9CD 


8BC9 


CDDD 


C9CD 


7A 


3650 


'84C4 


6C33 


2F5F 


5F7F 


5FEF 


171B 


E4 




4250 


' 1BCB 


CD8C 


CFCD 


D2D0 


CD6A 


D2F1 


Fl 


3660 


' 0C03 


0101 


2123 


36CC 


F4FA 


FAFE 


21 




4260 


'08F1 


C1D1 


E1DD 


E1FD 


E1FB 


C921 


DE 


3670 


'FAF7 


E8D8 


30C0 


8080 


84 C 4 


6C33 


A9 




4270 


'201B 


3A07 


004F 


0CED 


697C 


F640 


BD 


3680 


' 2C58 


5366 


44E0 


1018 


0C03 


0101 


43 




4280 


'ED79 


0D2 1 


9CD4 


7E47 


C5C6 


04FE 


13 


3690 


'2123 


36CC 


341A 


8A06 


0207 


0818 


90 




4290 


'1838 


01AF 


7768 


2600 


2929 


545D 


IB 


3700 


'30C0 


8080 


0000 


030E 


38FC 


0000 


C5 




4300 


'2919 


11C4 


D419 


3E18 


9047 


CD09 


j>2 


3710 


'00FC 


380E 


0300 


0000 


38FC 


9E0C 


E8 




4310 


'C9C1 


0405 


C821 


C4D4 


1108 


00C5 


14 


3720 


'1E0C 


1E0C 


1E0C 


1E0C 


9EFC 


3800 


62 




4320 


'0604 


EDB3 


19C1 


10F7 


C93A 


96D4 


0C 


3730 


'0000 


0003 


0409 


0B00 


0D0F 


0005 


AB 




4330 


'A7C0 


0125 


D611 


3000 


3A98 


D4CD 


23 


3740 


'0100 


0000 


0000 


0080 


4020 


A000 


2C 




4340 


'73C9 


3A9A 


D4CD 


73C9 


3A98 


D4CD 


83 


3750 


'60E0 


6040 


0000 


0000 


0005 


D819 


02 




4350 


'73C9 


3A94 


D4E6 


014F 


2197 


D406 


29 


3760 


' 0F07 


DB7F 


3E5D 


FB98 


F0E0 


DBFE 


49 




4360 


'027E 


23CB 


3F30 


0181 


86E6 


0F77 


7A 


3770 


'7CBA 


DFFB 


7D36 


6FDF 


8D1B 


3 IDF 


12 




4370 


'2310 


F27E 


A7F8 


3A94 


D4E6 


1FC0 


23 


3780 
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3E 
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D2 
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Fl 
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'0101 
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3C 
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5020 
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0300 
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9B 


4430 
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D455 
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F8D4 


0114 


1 3CD 


4E 




5030 


' CE00 


0404 


0003 


0486 


033C 


CD5B 


65 


4440 


"F1CA 


D07E 


FEF0 


D001 


0900 


A7ED 


B3 




5040 


'CE00 


0405 


0004 


0686 


074C 


2103 


43 


4450 


'427E 


FE13 


280B 


CD60 


CA21 


BCD4 


5F 




5050 


'0019 


7EA7 


28 ID 


218D 


CCE5 


CD5B 


4D 


4460 


'7EA7 


C834 


C909 


CD80 


CFAF 


32BC 


0B 




5060 


' CE03 


0101 


0101 


0400 


7E3C 


C81A 


C2 


4470 


'D432 


BED4 


3E02 


CD60 


D221 


92D4 


69 




5070 


'E6F0 


2014 


AF12 


1B1B 


1B12 


C91A 


D3 


4480 


'347E 


FE05 


D836 


0023 


7EFE 


18D0 


B3 




5080 


'3C20 


0336 


10C 9 


1208 


2107 


0019 


9C 


4490 


'C60C 


77C9 


0E12 


3A93 


D4FE 


1838 


D4 




5090 


'2308 


47E6 


03C0 


7EC6 


04 FE 


3838 


60 


4500 


'010C 


0604 


DD21 


C8D4 


C5DD 


7E00 


A5 




5100 


'023E 


2C77 


78E6 


0FC0 


2BC3 


F8CE 


31 


4510 


'FE0C 


2011 


21F8 


D406 


1 9DD 


5608 


27 




5110 


' CD5B 


CE01 


0105 


0201 


0100 


CD5B 


5A 


4520 


' DD5E 


09CD 


F1CA 


DC0F 


CA01 


0C00 


B5 




5120 


' CE02 


0101 


0201 


0100 


1A3C 


1208 


A0 


4530 


' DD09 


C110 


DFC9 


0109 


00A7 


ED42 


F4 




5130 


'131A 


4F06 


0021 


32CD 


097E 


A7FA 


6A 


4540 


' 7EFE 


1120 


27E5 


2323 


237E 


E1A7 


1C 




5140 


' 1 4CD 


2809 


3D28 


103D 


2813 


AF12 


2A 


4550 


'201E 


ED5F 


0108 


081F 


3002 


06F8 


06 




5 1 50 


' C9CD 


FED2 


7DFE 


02D0 


EB34 


C9EB 


B0 


4560 


' 1F30 


020E 


F8DD 


7003 


DD71 


04DD 


DC 




5160 


'342B 


3600 


C908 


FE80 


3803 


EB34 


EE 


4570 


'3600 


123E 


04C3 


60D2 


3A93 


D4FE 


FA 




5170 


'C9E6 


0FC0 


2106 


0019 


C3F0 


CE08 


35 


4580 


'0C28 


08DD 


3600 


FFDD 


3608 


D123 


57 




5180 


'E607 


C008 


EB34 


0103 


0009 


5623 


8F 


4590 


' 7EDD 


9601 


7700 


2BCB 


6BCA 


7EFE 


39 




5190 


' 5EEB 


CD2B 


CD01 


2000 


093C 


CD33 


03 


4600 


'1128 


4836 


1423 


2336 


003E 


03C3 


84 




5200 


' D33C 


ED79 


C900 


B0B4 


0102 


B0AC 


04 


4610 


' 60D2 


E57E 


D603 


4F06 


0021 


98CA 


CA 




5210 


' 03CD 


5BCE 


0301 


0102 


0101 


8107 


8E 


4620 


'097E 


2191 


D486 


2777 


3014 


2B7E 


E8 




5220 


'0C3A 


94D4 


1FD8 


1A4F 


3C3C 


1206 


2C 


4630 


'CE00 


2777 


2B7E 


C601 


2777 


3E01 


Al 




5230 


'0021 


83CD 


097E 


A728 


0A23 


4621 


87 


4640 


' CD60 


D2CD 


0DD3 


CD 16 


D3E1 


C901 


AE 




5240 


'0800 


1977 


2370 


C921 


0500 


197E 


38 


4650 


' 0203 


0301 


0206 


0201 


010A 


0A0A 


El 




5250 


' A723 


CA81 


CF46 


234E 


C51B 


1BE5 


B3 


4660 


'0014 


0036 


FF11 


0600 


1956 


235E 


31 




5260 


'215D 


D401 


0C00 


EDB0 


E1C1 


712B 


ED 


4670 


'42EB 


3EBA 


CD33 


D3ED 


7901 


2000 


B0 




5270 


'70C9 


480F 


4C0F 


500F 


540F 


580B 


FD 


4680 


' 09CD 


33D3 


ED79 


3E03 


CD60 


D221 


53 




5280 


' 5C08 


580B 


540F 


500F 


4C0F 


480F 


38 


4690 


' ADD4 


35C0 


21F8 


D411 


0C00 


0114 


E8 




5290 


'0000 


1AE6 


0720 


0E21 


0800 


197E 


2D 


4700 


' 137E 


3C28 


0771 


2323 


3600 


2B2B 


27 




5300 


' FE74 


3802 


3E64 


C604 


77CD 


5BCE 


B2 


4710 


'1910 


F23E 


FF32 


9FD4 


3EE1 


2117 


7B 




5310 


'0301 


0102 


0101 


8700 


091A 


FE20 


83 


4720 


'20C3 


33D3 


ED73 


A9D4 


3108 


007E 


F8 




5320 


'300C 


CD5B 


CE02 


0101 


0201 


0180 


3D 


4730 


'39B9 


D204 


CB7A 


96C6 


08FE 


1023 


9A 




5330 


' 0074 


2107 


0019 


3C12 


2814 


FE80 


FA 


4740 


'D211 


CB7B 


96C6 


08FE 


10DA 


16CB 


F0 




5340 


' 2005 


0E18 


C3FA 


CEE6 


7FFE 


40C0 


33 


4750 


'2323 


2310 


E2ED 


7BA9 


D4C9 


21BC 


D6 




5350 


'233E 


F496 


77C9 


13CD 


ECCD 


13ED 


F7 


4760 


' D406 


1EC5 


E57E 


A7FA 


3BCB 


EB13 


9B 




5360 


' 5FAE 


2BE6 


071F 


3002 


F6F8 


12C9 


36 


4770 


'1321 


3BCB 


E587 


4F06 


0021 


44CB 


C6 




5370 


' 1 AFE 


2030 


0CCD 


5BCE 


0201 


0102 


A6 


4780 


'097E 


2366 


6FE9 


E101 


0C00 


09C1 


E6 




5380 


'0101 


8100 


13AF 


1213 


2105 


0019 


4F 


4790 


' 1 0DD 


C96E 


CB87 


CBC3 


CB1E 


CC2A 


C9 




5390 


' ED5F 


1F30 


17E5 


ED4B 


C4D4 


1F3E 


13 


4800 


'CC36 


CC42 


CC4E 


CC5A 


CC6B 


CC77 


93 




5400 


'0030 


043E 


0248 


2347 


7996 


3002 


7A 


4810 


'CCC1 


CCCB 


CC9B 


CDBA 


CDF9 


CD46 


7E 




5410 


'CBC0 


78E1 


EB01 


0002 


1F30 


0206 


A3 


4820 


' CED5 


CCCB 


CC3A 


CD46 


CD1A 


2109 


E2 




5420 


'FE1F 


3003 


4806 


0070 


2371 


EB23 


53 


4830 


'0019 


3CFE 


8038 


07AF 


121B 


1B3C 


27 




5430 


'0E24 


C3FA 


CE62 


6B23 


ED4B 


C4D4 


D0 


4840 


' 360F 


121F 


3804 


3E16 


9677 


3E01 


79 




5440 


'7123 


2370 


CD5B 


CE00 


0206 


0002 


F7 


4850 


' CDD5 


00A7 


CCD5 


0087 


4F06 


0021 


60 




5450 


'0600 


DDE 1 


1A3C 


1208 


1321 


0500 


64 


4860 


'B1CB 


097E 


329D 


D447 


234E 


21C4 


A3 




5460 


'19CD 


A8CE 


FEA1 


D281 


CF77 


1323 


2E 


4870 


'D47E 


80FE 


A030 


0177 


237E 


81FE 


DB 




5470 


'0103 


00DD 


09CD 


A8CE 


771F 


A817 


B0 


4880 


' F0D0 


77C9 


0000 


FE00 


FE02 


0002 


DB 




5480 


' DA80 


CFDD 


7E03 


A7C8 


E51F 


3001 


DB 


4890 


'0202 


0200 


02FE 


00FE 


FEFE 


2106 


02 




5490 


'2323 


0847 


DDA6 


0420 


05DD 


7E05 


7C 


4900 


'0019 


1A3C 


12FE 


8030 


12FE 


40D0 


51 




5500 


'9677 


78E6 


0F08 


E11F 


D008 


C008 


9E 


4910 


'FE1F 


2005 


2323 


36FC 


C956 


235E 


AB 




55 1 


' 1FD2 


ECCE 


C3F8 


CEDD 


7E00 


A728 


FC 


4920 


'C3BC 


D221 


8FD4 


7ED6 


0130 


0808 


15 




5520 


' 0A3D 


2820 


3D28 


26AF 


477E 


C91A 


6D 


4930 


'3A8C 


D4A7 


2016 


0827 


77CD 


0DD3 


DF 




5530 


' 1 3DD 


4601 


9630 


022F 


3CCB 


11CB 


7E 


4940 
4950 
4960 
4970 
4980 


'2155 
'3293 
- 00ED 
' 8AD4 

'0101 


D311 
D4C9 
B03E 
3602 
803F 


BGD4 
2169 
FF32 
C9CD 
24CD 


010C 
D4 1 1 
9ED4 
5BCE 
5BCE 


00ED 
BCD4 
32BC 

0004 
0003 


B0AF 
0118 
D42A 
0402 
0402 


9C 
06 

65 
49 

) 




5540 
5550 
5560 
5570 
5580 


'3F10 
' 1A4F 
' DD46 
'198E 
'1118 


FCCB 
131A 
021A 
C90E 
090E 


1930 
81EA 
CB2F 
0C18 

0011 


022F 
DACE 
10FC 
0A11 
70D5 


3C4F 
1208 
4730 
1 0D5 
3AAC 


1803 
4F08 
02CB 

0100 

D447 


B4 
CE 
57 
FA 

91 
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559C1 


' EBD5 


CDF4 


D2D1 


C03E 


08CD 


60D2 


BA 


5600 


'EB79 


4E2B 


46C5 


D54F 


0600 


21 2D 


1A 


5610 


' D409 


0801 


0C00 


EDB0 


DDE1 


D1DD 


15 


5620 


' 3607 


00DD 


7208 


DD73 


0908 


A7C0 


71 


5630 


'2AC4 


D47C 


9330 


022F 


3CCB 


1067 


21 


5640 


' 7D92 


3002 


2F3C 


CB10 


571E 


026B 


8A 


5650 


'9430 


032F 


3CEB 


CB10 


CD6E 


CFCB 


57 


5660 


'1830 


01EB 


7BCB 


1830 


02ED 


44DD 


29 


5670 


' 7703 


7DCB 


1830 


02ED 


44DD 


7704 


BE 


5680 


' C957 


9438 


072D 


94D8 


94D8 


2DC9 


AC 


5690 


'7ACB 


3C94 


D82D 


C92B 


36D1 


0108 


CA 


5700 


' 00A7 


ED42 


36FF 


C92A 


94D4 


***>K?2 


75 


5710 


'94D4 


119E 


04 1 A 


A7CA 


A4CF 


3 DC A 


65 


5720 


'EFCF 


3DCA 


39D0 


C97C 


FE21 


3808 


D7 


5730 


'3A9F 


D43C 


C8EB 


34C9 


E607 


B5C0 


D2 


5740 


'EB4A 


CB39 


CB39 


CB39 


0600 


2185 


BF 


5750 


' D409 


7E32 


9BD4 


7AFE 


2020 


053E 


B6 


5760 


'FF32 


96D4 


7A1F 


1FE6 


3E4F 


0600 


82 


5770 


'2AB2 


D409 


7E23 


666F 


22B4 


D422 


7D 


5780 


' B6D4 


AF32 


BAD4 


329F 


D4C9 


2AAE 


BC 


5790 


'D47E 


FEFF 


28 ID 


235E 




AED4 


98 


5800 


'4FE6 


0357 


2100 


1819 


3E00 


CD60 


E4 


5810 


' D279 


CB3F 


CB3F 


C6A0 


C333 


D3EB 


5D 


5820 


'34EB 


237E 


32 AD 


D447 


2311 


DCD5 


FC 


5830 


' C5E5 


2181 


D401 


0400 


EDB0 


E113 


B2 


5840 


'1301 


0400 


EDB0 


1313 


C110 


E9C9 


10 


5850 


' 3AAD 


D4A7 


2813 


7DE6 


1FC0 


21A8 


B8 


5860 


' D43E 


0B96 


77F6 


E021 


1720 


C333 


06 


5870 


' D37D 


E603 


C02A 


B0D4 


7EFE 


FF28 


50 


5880 


' 3023 


5E23 


22B0 


D4E6 


0357 


2100 


2B 


5890 


'1819 


3EBA 


CD33 


D33E 


03CD 


60D2 


67 


5900 


'7BCB 


1A1F 


CB1A 


1FE6 


F8D6 


0357 


F8 


5910 


■' CB23 


CB23 


CB23 


7BD6 


04 5F 


C3D3 


0C 


5920 


'D221 


8ED4 


7EFE 


0230 


1034 


21BD 


31 


5930 


' D0 1 1 


4919 


0610 


CD45 


D33E 


0118 


C6 


5940 


'0D21 


CDD0 


114E 


1906 


05CD 


45D3 


F9 


5950 


'3E03 


2A8A 


D477 


3EFF 


329E 


D4C9 


E3 


5960 


'4154 


5441 


434B 


7F4E 


4558 


547F 


D8 


5970 


'4152 


4541 


4752 


4541 


543A 


94D4 


06 


5980 


'E60F 


CAE5 


D03D 


E603 


CA4A 


D13D 


C2 


5990 


'CA08 


D2C9 


3A9F 


D4A7 


C02A 


B4D4 


F5 


6000 


' 7EFE 


FADA 


25D1 


C823 


D6FB 


2012 


29 


6010 


'EB21 


A0D4 


B620 


031A 


77C9 


35C0 


Dl 


6020 


' 13ED 


53B4 


D4C9 


22B4 


D43D 


CAFE 


24 


6030 


' D23D 


2008 


21BA 


D4B6 


2002 


34C9 


DF 


6040 


' 2AB6 


D422 


B4D4 


18C8 


2322 


B4D4 


EA 


6050 


'4FE6 


C007 


0732 


BBD4 


79E6 


1F6F 


9B 


6060 


'2600 


2929 


545D 


2919 


1191 


D3 1 9 


94 


6070 


'22B8 


D43E 


0132 


9FD4 


C93A 


9FD4 


9C 


6080 


'" 3DC0 


21F8 


D43A 


ABD4 


47CD 


F4D2 


19 


6090 


'C0AF 


329F 


D4E5 


EB2A 


B8D4 


010C 


C0 


6100 


' 00ED 


B0E1 


0103 


0009 


EB62 


6B09 


0C 


6110 


'234E 


3ABB 


D477 


2379 


ED4B 


A6D4 


0B 


6120 


' A728 


1A3D 


2820 


3D28 


2D3D 


283A 


AA 


6130 


' 3D28 


3D3D 


2843 


3D28 


4C3D 


2858 


62 


6140 


' 3D28 


5C18 


6179 


E63F 


8677 


1A86 


D7 


6150 


' 12C9 


CB18 


3005 


36A0 


3EFE 


1223 


11 


6160 


' 79E6 


3F86 


77C9 


EB79 


E63F 


8677 


FB 


6170 


'1ACB 


1930 


02ED 


4486 


12C9 


79E6 


1C 


6180 


'7F86 


77C9 


EB23 


2379 


E61F 


8677 


0D 



6190 


'C979 


E67F 


8677 


FE50 


D83E 


FF12 


26 


6200 


'C923 


70EB 


2379 


E60F 


8677 


1FD0 


EA 


6210 


'2336 


FEC9 


2379 


E67F 


8677 


C979 


4A 


6220 


'E67F 


C610 


77C9 


CB18 


3006 


369F 


B3 


6230 


' 1 AED 


4412 


2371 


C93A 


BCD4 


FE02 


37 


6240 


' D03E 


01 CD 


D800 


A7CC 


D800 


A7C8 


A5 


6250 


'21C8 


D406 


04CD 


F4D2 


C0E5 


DDE 1 


62 


6260 


'EB21 


6DD3 


3A93 


D4F5 


4F06 


0009 


A2 


6270 


'010C 


00ED 


B02A 


C4D4 


DD75 


08DD 


45 


6280 


'7409 


F106 


05FE 


0C38 


0604 


FE18 


20 


6290 


' 380 1 


0408 


78CD 


60D2 


08FE 


18D8 


D2 


6300 


' 3A9D 


D4CB 


27CB 


27DD 


7703 


C9E5 


66 


6310 


'21A1 


D4BE 


3001 


77E1 


C921 


A1D4 


A2 


6320 


'7EFE 


0930 


1C36 


FF23 


BE38 


0220 


E3 


6330 


'1477 


874F 


0600 


21A2 


C709 


5E23 


5E 


6340 


' 56ED 


53A4 


D4AF 


32A3 


D421 


A3D4 


5C 


6350 


'7EA7 


2802 


35C9 


2AA4 


D47C 


B5C8 


44 


6360 


' 7EFE 


0E30 


0823 


5ECD 


9300 


2318 


22 


6370 


'F320 


0623 


7E32 


A3D4 


2322 


A4D4 


42 


6380 


'C83E 


FF32 


A2D4 


C93A 


94D4 


E603 


43 


6390 


' C0CD 


FED2 


EB01 


080F 


7AA0 


9184 


D2 


6400 


' 577B 


A091 


855F 


D521 


F8D4 


0613 


94 


6410 


' CDF 4 


D2D1 


C036 


1423 


2336 


0001 


7F 


6420 


' 0500 


0936 


0023 


7223 


733E 


0332 


61 


6430 


'A1D4 


C911 


0C00 


7E3C 


C819 


10FA 


61 


6440 


'C92A 


A6D4 


291F 


AD 17 


7DCE 


006F 


94 


6450 


'22A6 


D4C9 


118F 


D421 


E91A 


C320 


74 


6460 


'D311 


90D4 


21F6 


1ACD 


20D3 


131A 


DA 


6470 


'470F 


0F0F 


0FCD 


2AD3 


78E6 


0FC6 


5A 


6480 


' 30CD 


33D3 


23C9 


083A 


0700 


4F0C 


ED 


6490 


' ED69 


7CF6 


40ED 


7908 


0DED 


79C9 


9F 


6500 


'3A07 


004F 


0CED 


597A 


F640 


ED79 


97 


6510 


' 0DED 


B3C9 


0000 


0000 


0000 


0000 


0D 


6520 


'5120 


000F 


FF00 


0000 


0000 


0000 


8C 


6530 


'D100 


FC0F 


0C01 


0000 


0C00 


0000 


81 


6540 


'D100 


0403 


0C02 


0000 


1000 


0000 


77 


6550 


'D100 


0807 


0C04 


0000 


1400 


0000 


7B 


6560 


'D100 


0C08 


0300 


101E 


00FD 


0000 


8E 


6570 


'14FF 


1003 


0400 


080F 


00FD 


0000 


CC 


6580 


'14FF 


100B 


0502 


0002 


FF20 


0001 


23 


6590 


'0096 


180D 


0602 


0002 


0000 


0001 


E9 


6600 


'0096 


180D 


0700 


0030 


0001 


9202 


70 


6610 


'1EFF 


1C07 


0800 


0030 


00FF 


DF02 


C8 


6620 


'1EFF 


1C0B 


0904 


0050 


00B4 


0003 


20 


6630 


'14FF 


240F 


0A00 


0500 


01B4 


0004 


2E 


6640 


'90FF 


2C03 


0B00 


0001 


08FA 


0005 


FF 


6650 


'10FF 


3809 


0B00 


0001 


AA01 


0006 


0C 


6660 


'A000 


3809 


0C00 


0004 


FE00 


0007 


02 


6670 


'0078 


3809 


0D05 


0000 


FA00 


0008 


CF 


6680 


'00FF 


6802 


0E0A 


0004 


0000 


0009 


5D 


6690 


'0000 


780F 


1200 


0000 


0000 


0000 


F6 


6700 


'D100 


3C0F 


0C00 


0000 


FA00 


0000 


18 


6710 


'10FF 


400F 


1002 


0050 


0078 


0000 


50 


6720 


'0000 


840B 


0F0A 


0900 


FE00 


0008 


07 


6730 


'00FF 


800F 


1301 


0000 


FE00 


0000 


A7 


6740 


'D100 


4407 


FF00 


0000 


0000 


0000 


C2 


6750 


'5070 


600F 


FF00 


0000 


0000 


0000 


F0 


6760 


' 5080 


640F 


1132 


0000 


0202 


0A02 


86 


6770 


'0000 


0000 


0000 


0000 


0000 


0000 


86 


6780 


'END 
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SHORT PROGRAM ISLAND 



STAR LASER UT.h® 



gyvoh u*h 



100 "<Star Laser > melody soft July 1989 

110 CLEAR 200,?<HBC00:MAXFILES=1 :DEFINT A 

-ZrDIM Z(2) 

120 SCREEN 1,2,0:COLOR 15, 1,1 .-WIDTH 32 :K 

EY OFF 

130 IF PEEK(2<H2D>=0 THEN 160 

140 COLOR=( 10,5,3,0) :COLOR=(ll ,7,5,0) 

150 C0L0R=(13,5,2,5) :COLOR= ( 14 ,3 ,3 ,3) 

160 BLOAD "laser. ob j" :DEFUSR=&HBC00 

170 FOR 1=0 TO 3: PUT SPRITE I, (0,255),, 6 

3 .-NEXT I 

180 FOR 1=4 TO 7:PUT SPRITE I, (0,159),, 6 

3:NEXT I 

190 LOCATE 10, 10 :PR I NT "PUSH ANY KEY" 

200 LOCATE 3,12:PRINT"normal < SPC 12--- 

8 >easy " ; : I *= I NPUT* ( 1 ) 

210 A=USR(l):ON STOP GOSUB 370: STOP ON 

22iZi ' start 

230 Z(0)=0 

240 ' main 

250 Z(1)=ASC(I$) 

260 A=USR(VARPTR(Z(0) ) ) 

270 IF Z(0)=0 THEN 270 

280 ON Z(0) GOTO 290,320,320 

290 ' clear 

300 FOR W=0 TO 2000:NEXT W 
310 A=USR(0) :GOTO 240 

320 ' game over 

330 IF STRIG(0) OR STICK (0) THEN 330 
340 IF INKEY*>"" THEN 340 
350 I*=INKEY*:IF 1*="" THEN 350 
360 A=USR(0) :GOTO 220 

370 / stop 

380 A=USR(0) 

390 SCREEN 0,,1: COLOR 15,4,7:KEY ON: END 



10 ' F*>mi> n.hh»*t iQh&rv&i: 

20 SCREEN 5:C0L0R15,12:CLS:0PEN"GRP:"F0R 

OUTPUT ASttl :SPRITE*(0)=CHR*(128) : GOTO 170 

30 SETPAGE0,! :LINE(0,70)-(255,70) ,12:PSE 

T (0 ,69) :FORX=0TO255STEP5 : Y = INT (RND ( 1 ) *35 

) :LINE-(X ,68-Y) , 12 :NEXT :PAINT ( 1 ,69) ,12 

40 LINE (0,70) -(255, 70) , 12 :PSET (0 ,71 ) :FOR 

X=0TO255STEP5 : Y=INT (RND ( 1 ) *35) :LINE- ( X ,7 

2+Y) ,12:NEXT:PAINT(1 ,71) ,12 

50 SETPAGE0,0:X=128:Y=80 

60 LINE(0,0)~(255,211) ,12,BF 

70 FORI=0TO185STEP2:GOSUB100:NEXT:L=L+1 : 

PLAY"O2SM20000C1" 

80 FORI = 185TO0STEP-2:GOSUB 100: NEXT: PLAY" 

CI" 

90 L=L+1 :GOTO 70 

100 COPY (185-1 ,70) -(255-1 ,140) , 1TO (0,140 

+L*2) ,1 :COPY(I ,0) --(1+70,69) , 1TO (0 , 140-L* 

2) ,1 ,TPSET 

110 COPY (0,140)-(70,209-L*4) ,1TO(92,50) 

120 SC=SC+1 :S=STICK(0) :X=X+( <S>1)*(S<5)- 

(S>5)*(S<9) )*2:Y=Y+( (S=l ) + (S=2) + <S=8) + (S 

>3)*<S<7) >*2:PUT SPRITE©, (X ,Y) ,15,0:IFPO 

INT ( X , Y X >0THEN130ELSERETURN 

130 FORI=0TO99 :LINE < X , Y ) ■- ( INT (RND ( 1 ) *70> 

+92,INT(RND(l)*70+50) ) , INT (RND ( 1 ) *15> :NE 

XT 

140 PLAY"V1504DEFEDCD1 ." , " V1503F2 .E2 .Fl . 

150 PRESET (90,1 25 ): PRINT* 1 , "GAME OVER" :P 

RESET (90,135) :PRINT#1 , "SCORE " ;SC 

1 60 I FSTR I G ( ) =0GOTO 1 60ELSERUN 

170 PSET(100,50) :PRINT#1 ,"5" WWl," :PSET(7 

, 1 50 ) : PR I NT# 1 , " M if+l, W hm&B" ¥*k " 

180 PSET(70,100) :PRINT#1 ,"PUSH SPACE KEY 

190 IFSTRIG(0)=0GOTO190 

200 PLAY " V 1 504D8C 1 6D8 . F8D 1 6F8 . G4G8G4 A 1 6G 

16A16B8.B4 

210 R=RND(-1) :FORI=0TO1 :SETPAGE0,I :COLOR 

15,0 :CLS :NEXT :GOTO30 



Z*$:LTl^A.X'T£teo t 



A^HZ^flottSlzl;*? 



T^i7-(t %A,tl^ti> 
*Syntax error" "CL i. n Z(D 
*&£•(£> f:UTUi7- ^-y-tz 
— vT'^TF^tl/c^- 5 *#* 
£ <7) T\ tz I > L X MHKt < 1* JE 



T'#-5T-Lcfc9o L^Ls t < 

H*Illegal function call"#&U 
ito Z<7)x.7—<n$&=U* s x 
7 — * v Hz— p XWr- $ tltzff 
£*Jj$.ztf$>Z £f$N n L & 

xh, fofoxZ'XM&hm 



£ltzt:£lzft£.TZh<nX-T a 
?ZX\ DATE£^VPOKE£A*& 

Ln, I¥L<«BASIC<7)v-il 



-I- • yp?'7A • T-i 7> K 173 



m&^-Dlzfo U3>b 




1 00 ' M h V 'y 91' By M . Ak i mot o 

110 DEFINT A-Z:COLOR 15 s A=RND (-TIME/3) :S 

CREEN 5, 2,0: SET BEEP 2, 3: OPEN "GRP:" AS 

#1:0N SPRITE GOSUB 680 

120 FOR 1=0 TO 735:READ A*:VPOKE &H7800+ 

I ,VAL<"&H"+A*) :NEXT 

130 I=?<H7400 

140 READ A*,C:IF A*<>"*" THEN A=VAL<"&H" 

+ A* ) : FOR J= 1 TO C : VPOKE I , A s 1= I + 1 s NEXT :B 

OTG 140 

150 Y(0)=-2:FOR 1 = 1 TO 3 : X ( I ) =-Y < 1-1 ) : Y ( 

I)=X (1-1) :NEXT 

160 SET PAGE 1,1: COLOR ,0:CLS:FOR 1 = 1 TO 

4:CIRCLE (8 , 168) , 10-I-I ,2--I-l .-PAINT (8, 
168) ,2--I-l :NEXT 

170 X=A:Y=B:READ A,B:IF B<0 THEN LINE (0 
,160) -(16, 176) ,0,BF:PRESET (68,192) :PRIN 
T #1 ,"PUSH SPACE KEY ! " :GOTO 240 
180 IF B>300 THEN B=B~300:GGTO 200 
190 X=A:Y=B:READ A,B 

200 A0=A-X:B0=B-Y:IF ABS ( A0) >ABS (B0) THE 
N C=A0 ELSE C=B0 
210 C=ABS(C) :X0=X*C:Y0=Y*C 

220 COPY (0,160)-(16,176) TO (X0/C+.5,Y0 
/C+.5) ,1 ,OR 

230 IF X0=A*C AND Y0=B*C THEN 170 ELSE X 
0=X0+A0:Y0=Y0+B0:GOTO 220 
240 COLOR- (0, 0, 0, 0) :SET PAGE 1,0 
250 IF STRIG(0)=0 THEN FOR 1=1 TO 3: COLO 
R=(2''-I-l ,-( (A+I) MOD 3=0)*7,-( (A+I) MOD 
3=l>*7,-< (A+I) MOD 3=2) *7) :NEXT :A= ( A+l ) 
MOD 3:G0T0 250 

260 COLOR ,8:CLS:SET PAGE 0: RESTORE I960 
:FOR 1=0 TO 15:READ A ,B ,C :COLOR= ( I ,A ,B ,C 
) :NEXT 
270 S=0:R=1 

280 K=0 :D=2 :P=0 :N=8 :Z=0 : Z0=0 :S0=0 
290 ' 7T /'J ^713 -V 

300 CLS :COLOR= (0 ,RND ( 1 ) *8 ,RND < 1 ) *8 ,RND ( 1 
)*8) :COLOR=(ll ,0,0,0) -.FOR 1=0 TO 22:PUT 
SPRITE I, (0,217) :NEXT 
310 PRESET (96,96) :PRINT #1, USING "STAGE 

##" ;R :PLAY "T240L8V10O2AA#4BO3C4 .R4DD#4 
.R402B03C4DD#4G#G4CD#4GF#2 . R8FD#C02A#03C 
2.04C 

320 IF PLAY(0) THEN 320 ELSE CLS:I=-3 
330 A0=RND ( 1 ) *255 : A 1 =RND ( 1 ) *255 
340 LINE(A0,8)-(A1 ,211) ,3 , , XOR :LINE ( A0+1 
,8)-(Al + l,211) ,3, ,XOR:LINE(A0,8)-(A1 ,211 
) ,2, ,OR:LINE(A0+1 ,8)-(Al+l,211) ,2,, OR 
350 1=1+1: IF I=R THEN 390 
360 A0=RND ( 1 ) *203+8 : A 1 =RND ( 1 ) *203+8 
370 LINE(0,A0)-(255,A1) ,3, , XOR :LINE (0 , A0 
+ 1)~(255,A1 + 1) ,3, ,XOR:LINE(0,A0)-(255,A1 
) ,2, ,OR:LINE(0,A0+1)-(255,A1 + 1) ,2, ,OR 
380 1 = 1 + 1 :IF KR THEN 330 



390 GX=RND ( 1 ) *240 :GY=RND ( 1 ) * 188+8 
400 KX=RND(1)*240:KY=RND(1)*188+8:IF ABS 
(KX-GXX32 AND ABS(KY-GYX32 THEN 400 
410 X=RND(1)*240:Y=RND(1)*1 88+8:1 F ABS ( X 
-GXX32 AND ABS(Y-GY)<32 OR ABS(X~KX)<32 

AND ABS(Y-KYX32 OR POINT ( X+8 , Y + 16) >8 T 
HEN 410 

420 PUT SPRITE 18 , (GX ,GY ) :PUT SPRITE 16, 
(KX,KY):PUT SPRITE D*4 , ( X , Y ) 
430 PRESET (1 2,0) :PRI NT #1 , USING "SCORE## 
##00 TOP####00 STAGE##" ;S;H;R 
440 DX=RND(1)*240:DY=RND(1)*196:IF ABS(D 
X-XX32 AND ABS(DY-Y)<32 OR ABS(DX-GX)<3 
2 AND ABS(DY-GYX32 OR ABS (DX-KX ) <32 AND 

ABS(DY-K"Y)<32 THEN 440 
450 PUT SPRITE 20 , (DX ,DY ) :F=0 
460 ' MVii-^'J 

470 N=Q:Q=D*4+P+P:PUT SPRITE Q,(X,Y-Z):P 
UT SPRITE 22, (X,Y + 15) :IF QON THEN PUT S 
PRITE N, (0,217) 

480 IF Z THEN Z0=Z0-1 : Z=Z+Z0 :GOTO 530 
490 M=STICK(0) J IF M=0 THEN 490 
500 IF P0INT(X+8,Y+16> >8 THEN 610 ELSE S 
PRITE ON 

510 D=(M-1) /2:P=1-P:IF STRIG(0) THEN Z0= 
5:Z=Z+Z0:P=0 
520 SPRITE OFF 

530 X=X+X(D):IF X<0 THEN X=0 
540 IF X>240 THEN X=240 
550 Y=Y+Y(D):IF Y<-1 THEN Y=-l 
560 IF YM95 THEN Y = 195 
570 ON F+l GOTO 470,430,580 
580 S=S+R*(S0+10) :R=R+1 

590 PLAY "T240V10L8O5C4O4A#G4FD#4CF#FF#F 
#FF#F#FF#F#FF#D#C03A#04CR8C2 . 
600 IF PLAY(0) THEN 600 ELSE 280 
610 ' Game Over 

620 COLOR=(ll ,3,0,0) :SOUND 0,0:SOUND 1,0 
: SOUND 13,14 

630 FOR 1 = 1 TO 8: SOUND 8,16:F0R J=0 TO 2 
4:S0UND 11,32-J:F0R K=l TO 10 :NEXT :NEXT : 
FOR J=l TO 400:NEXT:NEXT:SOUND 8,0 
640 FOR 1=0 TO 22:PUT SPRITE 1,(0,217) :N 
EXT:PRESET (88 ,96) :PRINT #1,"GAME OVER" 
:IF S>H THEN H=S 
650 IF STRIG(0)=0 THEN 650 
660 IF STRIG(0) THEN 660 ELSE 240 
670 ' ^yuS i/3'.) 

680 SPRITE OFF:IF ABS(X-GX)>15 OR ABS(Y- 
GY) >15 THEN 710 
690 IF K THEN F=2 
700 RETURN 

710 IF ABS(X-KX)<16 AND ABS(Y-KYX16 THE 
N PUT SPRITE 16, (0,217) :BEEP:K=1 :RETURN 
720 PUT SPRITE 20 , (0 ,217) :BEEP :S=S+R :S0= 
S0+1 :F=1 : RETURN 
730 ' Sprite 

740 DATA 07,1F,3F,7F,7F,7F,FF,FF 
750 DATA 38,1F,1F,00,0F,0C,0C,00 
760 DATA C0,E0,F0,F8,FC,FC,F8,F0 
770 DATA 38,FE,F6,00,E0,E0,C0,C0 
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780 
79© 

800 

810 
820 
830 
840 
850 
860 
870 
880 
890 

900 

910 
920 
930 
940 
950 
960 
970 
980 
990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 

1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 

1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



C0,E0,40,00,00,00,C0,C0 
07 , 00 , 00 , 0F , 00 , 00 , 0C , 00 
06, IE, 0C, 00, I 

C0,06,06,E0,i 

flfa l7l'7 |7|C 1 C ' 



07 ,00 

IE 

06 

07 

7F 
E0 ,F8 ,FC ,FE ,FE ,FE ,FF ,FF 
1C,F8,F8,00,F0,30,30,00 

60 ,78 ,30 ,00 ,00 ,00 ,00 ,00 

03,60,60,07,00,03,03,03 

l7l"-< l7l"7 ar> <7ll7l I7ll7l i7ii7t iTiT iTiT 



H..U, , j. u- , *..,_ , *..*.. , 00 , 00 , KfXS , *■*■ 

C0 , 06 , 06 , E0 , 00 , CO , CO , CO 
03 , 07 , OF , 1 F , 3F , 3F , 1 F , OF 
3C ,7F ,6F ,O0 ,07 ,07 ,03 ,03 
'0,F8,FC,FE,FE,FE,FF,FF 
.C,F8,F8,OO,FO,30,30,0O 

■vlTl ~7Q Tl7i i7ll7l iTiiTi i7ii7i i7ii7i iTiiTi 



6W , /& , .JW , WW , WW , WW , WW , WW 

03,60,60,07,00,03,03,03 
03 ,07 ,02 ,0O ,O0 ,O0 ,03 ,03 

EO ,O0 ,00 ,F0 ,00 ,00 ,30 ,00 

07 ,0F , IF ,3F ,3F ,3F ,3F ,7F 



,00 ,00 , 

07, OF, IF, 

OF, 07, 

9C,8E, 
l-h ,FF ,FC,WJ,hh ,hh ,WW ,WW 

00 ,0O ,00 ,00 ,00 ,00 ,03 ,63 

63 , OO , OO , 07 , 60 , 60 , 60 , OO 
40 ,60 ,70 ,38 ,38 ,7C ,7E ,FE 
F3 ,FB ,O0 ,F3 ,03 ,03 ,00 ,00 
OO ,07 ,0F , IF ,3F ,3F ,3F ,3F 
IF ,0F ,03 ,07 .OO ,07 ,07 ,07 



07 ,0F , IF ,3F ,3F ,3F ,3F ,7F 
7F ,0F ,07 ,00 ,7F ,7F ,60 ,00 
B8 ,9C ,8E ,D6 ,D0-,E4 ,EE ,FE 
FF ,FF ,FC ,03 ,FF ,FF ,00 ,00 
00 ,00 ,00 ,00 ,00 -I7II7I -I7n -AT 
AT I7ll7l I7II7I l7l"7 A0I 




-. ,.-. ,....,^. ,^.,C0,^.,. 
00 ,00 ,00 ,00 ,00 ,00 , CO ,1 

C6 ,00 ,O0 ,E0 ,06 ,06 ,06 ,L.^. 
OO, ID, 39, 71 ,6B,0B,27,77 
7F,4F,3F,01 ,03,03,01 ,01 
OO ,E0 ,F0 ,F8 ,FC ,FC ,FC ,FC 
F8 ,F0 ,C0 ,E0 ,00 ,E0 ,E0 ,E0 
O0,O2,O6,0E,1C,1C,3E,7E 
7F ,4F ,3F ,00 ,03 ,03 ,01 ,01 

OO , OO , OO , OO , 00 , 00 , 00 , CO 
C0,C0,00,00,E0,0O,E0,EO 



,00, OO, OO, 00, 00, 00, CO 

^OjOO^O^O^O^O^O 

, OO , OO , OO , OO , OO , OO , OO 



1 390 DAT A 00,01, 02 , 05 , OS , 1 4 , OO , OO 

1400 DATA 00,00,00,00,10,00,08,70 

1410 DATA 80,00,00,00,00,00,00,00 

1420 DATA 00,00,00,00,00,00,00,00 

1430 DATA 01,02,05,08,14,00,00,00 

1440 DATA 00,00,00,30,68,78,70,80 

1450 DATA 00,00,00,00,00,00,00,00 

1460 DATA OO,07,1F,3F,3F,7F,7F,7F 

1470 DATA 6F,57,6F,7F,7F,7F,7F,7F 

1480 DATA 00,EO,F8,FC,FC,FE,FE,FE 

1490 DATA FE,FE,FE,FE,FE,FE,FE,FE 

1500 DATA 07,18,23,5B,5B,BB,BB,8O 

1510 DATA BF,BF,90,BB,BB,BB,BB,BB 

1520 DATA E0,18,C4,DA,DA,DD,DD,01 

1 530 DATA FD , FD , O 1 , DD , DD , DD , DD , DD 

1540 DATA 07, IF, OF, 07, OO, 07, IF, 3D 

1550 DATA 70,65,E5,F0,FD,65,70,1F 

1560 DATA 0O,E0,F8,EO,00,E0,F8,BC 

1570 DATA 0E,A6,BF,0F,A7,A6,0E,F8 

1580 DATA 07, IF, OF, 07, 03, 07, IF, 3F 

1590 DATA 7F,7F,FF,FF,FF,7F,7F,0O 

1600 DATA OO, EO, CO, OO, CO, 80, CO, EO 

1610 DATA F0,F8,FO,F0,F8,F8,FO,00 

1620 DATA 07, OF, 07, OO, OO, OO, OO, OO 

1630 DATA 00,00,00,00,00,00,00,00 

1640 DATA E0,FO,E0,00,O0,00,00,00 

1650 DATA 00,00,00,00,00,00,00,00 

1660 ' Color Sprite 

1670 DATA Ol, 16, 6E, 05, 62, 06, 6E, 05 

1680 DATA 01 ,16, 6E, 05, 62,06, 6E, 05 

1690 DATA Ol ,16, 6E, 05, 62,06, 6E, 05 

1700 DATA Ol ,16, 6E, 05, 62,06, 6E, 05 

1710 DATA 01 ,16, 6E, 05, 62,06, 6E, 05 

1720 DATA Ol ,16, 6E, 06, 62,08, 6E, 02 

1730 DATA 01 ,16, 6E, 05, 62,06, 6E, 05 

1740 DATA 01 ,16, 6E, 06, 62,08, 6E, 02 

1750 DATA 01,16,66,16,01,16,64,16 

1760 DATA 07, 16, 6E, 16, 21 ,16,*, O 

1770 " Demonstration 

1780 DATA 29,8,29,55,22,24,16,41 

1790 DATA 34,25,39,36,42,34,65,8 

1800 DATA 43,31*3,70,335,45,36,62,36 

1810 DATA 54,28,54,55,39,55,69,55 

1820 DATA 79,12,89,16,77,34,92,25 

1830 DATA 100,8,93,26,97,16,123,13 

1840 DATA 111,328,106,17,91,36,100,26 

1850 DATA 122,36,87,55,85,37,116,337 

I860 DATA 113,355,95,37,95,55,105,37 

1870 DATA 103,55,75,55,125,55,16,101 

1880 DATA 29,101,51,372,82,419,106,419 

1890 DATA 114,410,104,401,91,401,86,72 

1900 DATA 79,81,86,390,94,381,86,372 

1910 DATA 120,86,153,82,136,72,118,115 

1920 DATA 137,98,154,93,136,115,157,119 

1930 DATA 186,72,167,119,176,97,192,93 

1940 DATA 195,419,223,397, ,-1 

1950 ' Color 

1960 DATA 0,0,0,1,1,1,7,0,0,7,4,0 

1970 DATA 5,5,5,4,0,0,7,7,0,5,5,5 

1980 DATA 0,0,0,0,0,0,7,0,0,0,0,0 

1990 DATA 0,0,0,4,4,0,7,0,0,7,7,7 



J \ 
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1 1211Z1 DEFINT A-Z:SCREEN 1,2:WIDTH 30 

110 COLOR 15, 1,1: KEY OFF: GOSUB 890 

120 AA=2<H2016 

1 30 B*=CHR* (31) +STR I NG* ( 2 , CHR* ( 29 ) ) 

140 N*<0)= ,, @@"+B*+ ,, @@" :VP0KEAA-14,S<HF1 

150 N*(l)="7 r >" + B*+"-i"I" :VPOKE AA ,?<HB1 

160 N*<2)«"^ ,, +B*+"3^" sVFQKE AA+1 ,8<H61 

170 N*(4)= 5 'Vt: ,, +B#+"iV7":VP0KE AA+3,?<H31 

180 REM ••••••• INITIALIZE 

190 TS=0:ST=0 

200 REM ••••••• STAGE 

210 FOR 1=0 TO 6:D*<I>="" 

220 FOR J=0 TO 6:K=RND<1>*3+1 

230 D* ( I ) =D* ( I ) +MID* ( "124" ,K , 1 ) 

240 NEXT J, I 

250 CLS:FOR 1=0 TO 8:F0R J=0 TO 8 

260 LOCATE 1*2 , J*2 iPRINT N$ (0) :NEXTJ , I 

270 FOR 1=0 TO 6.-F0R J=l TO 7 

280 C(J-1 ,I)=VAL(MID*<D*<I> ,J,1>> 

290 LOCATE J*2 , 1*2+2 :PRINT N*(C(J-1,I>> 

300 NEXT J, I 

310 SP=100:ST=ST+1 

320 REN » >•>•• MAIN 

330 LOCATE 20,5:PRINT USING "TOTAL :###"; 

TS 

340 LOCATE 20, 8: PR I NT USING "POINT :###"; 

SP:SP=SP-1 

350 LOCATE 0,20:PRINT "£"9l£*&?" 

360 K=STICK(0)+STICK(1) 

370 S=STRIG(0)+STRIG(1) 

380 IF S THEN 200 

390 L=INSTR(" 1 3 5 7" ,STR* <K> ) 

400 IF L=0 THEN 360 

410 LOCATE 0,20: PR I NT "IfMlVMI" 

420 L=(L+1) /2 

430 FOR Q=0 TO 6 

440 CF=0:ON L GOSUB 500,640,570,710 

450 IF CF=0 THEN Q=6 ELSE Q=6 

460 NEXT 

470 GOSUB 780 

480 GOTO 320 

490 REM •••>•>• NEWTON 

500 FOR J=0 TO 6:F0R 1=1 TO 6 

510 IF (C(J,I)OC(J,I-l) AND C(J,I-1) >0) 

OR C(J,I)=0 THEN 560 

520 IF C(J,I-1)=0 THEN PS=C < J , I ) :C < J , I--1 
)=PS ELSE PS=C(J,I-1) 

530 C(J,I )=0:CF=1 

540 LOCATE .J*2+2,I*2 : PR I NT N*(PS) 

550 LOCATE J*2+2 , 1*2+2 : PR I NT N*(0) 

560 NEXT I,J:RETURN 

570 FOR J=0 TO 6: FOR 1=5 TO STEP -1 

580 IF (C(J,I) <>C(J,I+1) AND C (J , 1+1 ) >0> 

OR C(J,I)=0 THEN 630 

590 IF C(J,I+1)=0 THEN PS=C (J , I ) :C (J , 1+1 




)=PS ELSE PS=C(J,I+1) 

600 C(J,I )=0:CF=1 

610 LOCATE J*2+2,I*2+2:PRINT N*<0) 

620 LOCATE J*2+2 , 1*2+4 : PR I NT N*(PS) 

630 NEXT I ,J:RETURN 

640 FOR 1=0 TO 6: FOR . J=5 TO STEP -1 

650 IF (C(J,I)OC(J+l ,1) AND C(J+1,I)>0) 

OR C(J,I)=0 THEN 700 
660 IF C(J+1,I)=0 THEN PS=C < J , I ) :C < J+l , I 
)=PS ELSE PS=C(J+1 ,1) 



670 
680 
690 

700 

710 
720 
OR 
730 
)=PS 
740 
750 
760 
770 
780 
790 

800 

810 

) )+l 

820 NEXT:NEXT 

830 I F SK ( 1 ) *SK ( 2 ) *SK ( 4 X > 1 

840 TS=TS+SP:IF TS<100 THEN 

850 RETURN 860 

860 LOCATE 2,10:PRINT "YOU 

STAGES ! " 

870 S=STRIG(0)+STRIG(1) :IF S 

880 S=STRIG(0)+STRIG(1) :IF S 

SE 880 

890 REM •••>•>• CHARACTER 

READ C*,D*:IF C*="END' 

FOR 1=0 TO 

VPOKE A 



C(J,I)=0:CF=1 

LOCATE .J*2+2,I*2+2:PRINT N*(0) 

LOCATE J*2+4,I*2+2:PRINT N*(PS) 

NEXT J, I : RETURN 

FOR 1=0 TO 6: FOR J=l TO 6 

IF (C(J,I)OC(.J-l,I) AND C(J-1 ,1) >0> 

C(J,I)=0 THEN 770 

IF C(J-1,I)=0 THEN PS=C(-J,I) :C(J-1 ,1 

ELSE PS=C(J-1 ,1) 
C(J,I)=0:CF=1 

LOCATE J*2+2,I*2+2:PRINT N*(0) 
LOCATE J*2 ,1*2+2: PR I NT N*(PS) 
NEXT J, I :RETURN 
REM — — — CLEAR ?? 
SK ( 1 ) =0 :SK (2) =0 :SK (4) =0 
FOR 1=0 TO 6: FOR J=0 TO 6 
IF C(I,J)>0 THEN SK(C(I ,J) )=SK(C(I ,J 



THEN RETURN 
RETURN 200 

PLAYED"; ST;" 



THEN 
THEN 



870 
180 



EL 



900 

910 

920 

)) 

930 

940 

) ) 

950 

) ) 

960 

) ) 

970 

) ) 

980 

) ) 

990 

1000 
1010 
1020 
1030 

) ) ) 

1040 
1050 



THEN 1000 
7:A=ASC(Ct)*8+I 
,VAL("?<H"+MID*<D$, 1*2+1 ,2 



IF C*="<s"' THEN 990 

VPOKE A+ 64,VAL<"S<H"+MID*(D*,I*2+1 ,2 

VPOKE A+ 1 28 , VAL ( " &H " +M I D* ( D* , I *2+ 1 , 2 

VPOKE A+ 1 92 , VAL ( " fcH " +M I D* ( D* , I *2+ 1 , 2 

VPOKE A+256 , VAL ( " ?<H " +M I D* ( D* , I *2+ 1 , 2 

VPOKE A+320 , VAL ( " ?<H " +M I D* ( D* , I *2+ 1 , 2 

NEXT:GOTO 900 
READ C:IF C=5963 THEN RETURN 
S*="":FOR K=0 TO 1 :READ D* 
FOR 1=0 TO 15 
S*=S*+CHR* < VAL ( "8cH"+MID* <D* ,1*2+1 ,2 

NEXT I ,K:SPRITE*(C)=S*:GOTO 1000 
DATA 7 ,007F7F7F7F7F7F7F ,-f ,7F7F7F7F7 
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SHORT PROGRAM ISLAM 



F7F7F7F 

11360 DATA 0,lZiiZiFFFFFFFFFFFFFF,I,FFFFFFFFF 

FFFFFFF 

1070 DATA @,AA55AA55AA55AA55,END, 

1080 DATA 0,55AA55AA55AA55AA55AA55AA55AA 

55AA , AA55AA55AA55AA55AA55AA55AA55AA55 

1090 DATA 1 ,FFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFF,FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

1100 DATA 5963 



MULTIPLE4 U7h 



100 COLOR 1 5, 0, 0: KEY OFF: SCREEN 1 ,0:DEFINTA 
-Z:DIMX (15) ,Y(15) 

110 LOCATE0,5:PRINT5PACE$<8) ; "SELECT MAP 
" :PRINT:FORI=1TO5:PRINTSPACE*<10) ;CHR*(4 
8+1 ) ; "-MAP" ;CHR* (48+1 ) :NEXT 
1 20 A** I NKE Y * : I F A*= " " THEN 1 20ELSEM= VAL ( A* 
) :IFM=0ORM>5THEN120 

130 CLS:P=32:GOSUB500:RESTORE650:P=104:G 
OSUB500 : P= 1 1 2 : BOSUB500 

1 40 FOR I =0TO4 : READ 1 : VPOKE8<H200C+ 1 , 1 : NE 
XT:FORI=0TO31 : VPOKE&H1 AE0+I ,104:NEXT 
1 50 FOR I =0TO7 : READ 1 : FORF-0TO 1 5 : VPOKE960 
+8*P+I ,I0:NEXTP,I 

1 60 ONMGOSUB 1 70 , 1 80 , 1 90 , 200 ,210: GOTO220 
170 RESTORE690: RETURN 
180 RESTORE700: RETURN 
190 RESTORE710:RETURN 
200 RESTORE720: RETURN 
210 RESTORE730: RETURN 

220 FOR I =0TO236STEP 1 2 : READ I : FORP=0TO 1 1 
230 IF(I0AND2"M11-P) ) =0THENP0=I+P :P0=S<H1 
824+P0MOD24+ (P0¥24) *64 : VPOKEP0+32 , 1 12 :VP 
OKEP0 , 1 04- ( VPEEK ( P0-32 ) = 1 1 2 ) *8 
240 NEXTP,I :I=RND(-TIME) 

250 DEFFNV < I ,P> =VPEEK (FND ( I ,P) ) :DEFFND ( I 
,P)=&H1 800+1 +32*P 

260 FORN=0TO7 : Y (N) =2 :X (N) =5+3*N :GOSUB380 
:NEXT:F0RN=8T011 : Y (N) =20 :X (N) =7+6* (N-8) : 
GOSUB390:NEXT:EN=8 

270 FORTN=30TO1STEP-1 :GOSUB300 :FORN=0TO7 
:GOSUB310:NEXT:FORN=8TO11 :GOSUB410 :NEXTN 
:NEXTTN 

280 LOCATE 10,9: PR I NTM I D* ( " NS < ¥ t*if*)9-f l > ! f U 
o£" , (ABS (EN-1 ) ¥2) *4+l ,4) ; "ft" &. " :F0RI=256 
T0263 bVPOKEI ,0 :NEXT 

290 I F I NKE Y *=CHR* (13) THENRUNELSE290 
300 LOCATE 1 2 , 22 : PR I NT " < " ; R I BHT* ( STR* ( 1 00 
+TN) ,2) ;">" : RETURN 

310 IFX(N)=-1THENRETURNELSEX=0:Y=1 :I=0 
320 I0=FNV(X(N)+X,Y(N)+Y) 
330 IFI0=112THEN380 
340 IFY = 1THENX=-1 :Y=0:GOTO320 
350 IFX=-1THENX=1 :Y=0:GOTO320 



360 IFX=1THENX=0:Y=-1 :GOTO320 

370 IFY=-1THENRETURN 

380 VPOKEFNDCX (N) ,Y(N) ) , 1 12 :X (N) =X (N) +X : 

Y (N) =Y (N) +Y : IFY (N) =20THENX (N) =- 1 :EN=EN-1 

:GOSUB620: RETURN 

390 VPOKEFND (X(N) ,Y(N)) ,1 20+N : GOSUB640 

400 RETURN 

410 IFX(N+4)+Y(N+4)=0THEN510 

420 I=0:X=0:Y=1 :GOSUB480 :X=-1 :Y=0:GOSUB4 

80:X=1 :GOSUB480:X=0:Y=-1 :GOSUB480 :P=I :IF 

P>2THEN510 

430 I=0:X=X(N+4) :Y=Y(N+4) :GOSUB460 

440 IFI=0THENIFP=0THENRETURN ELSEX(N+4)= 

X0:Y(N+4)=Y0 

450 VPOKEFND (X(N) ,Y(N) ) , 1 12 : X (N) =X (N) +X ( 

N+4) :Y<N)=Y(N)+Y (N+4) :GOTO390 

460 I0=FNV(X(N)+X,Y(N)+Y) : IFI0=1 12THENI = 

1 + 1 :X0=X:Y0=Y 

470 RETURN 

480 GOSUB460 : IFI0¥8=15THENRETURN470 

490 RETURN 

500 FORI=0TO7:READI0:VPOKEP*8+I ,I0:NEXT: 

RETURN 

510 P=FND(X (N) ,Y (N) ) :I0=0 

520 FORLP=0TO60:I=STICK(0) : IFI >0THENLP=1 

00 :NEXT :GOSUB630 :GOTO550 

530 I F I 0=0THENVPOKEP , 1 1 2ELSEVP0KEP , 1 20+N 

540 10=1-10 :NEXT:GOTO600 

550 I = I ¥2 : ON I + 1 GOTO560 , 570 , 580 , 590 

560 X=0:Y=-1 :GOTO600 

570 X=l :Y=0:GOTO600 

580 X=0:Y=1 :GOTO600 

590 X=-l :Y=0 

600 X (N+4)=X :Y (N+4)=Y : VPOKEP , 120+N :P=0 

610 I FST I CK ( ) THEN6 1 0ELSE430 

620 SOUND6,220:SOUND7,7:PLAY"S0M5000C4" : 

FOR I =0TO1 000 : NEXT : RETURN 

630 SOUND7,56:PLAY"S0M2400O4F16" : RETURN 

640 SOUND7,56:PLAY"S0M500O3C18" : RETURN 

650 DATA 238,238,0,187,187,0,238,238 

660 DATA 153,102,102,153,153,102,102,153 

670 DATA 240,224,69,134,44 

680 DATA 255 , 255 , 255 , 255 , 255 , 255 , 255 , 

690 DATA 0,0,2011,3518,2011,3518,1795,30 

86,0,0,1911 ,3822,1911 ,3822,1911 ,3822,191 

1 ,3822,0,0 

700 DATA 0,0,1783,1462,1655,1462,1895,14 

62 , 1903 , 1024 ,1028 ,1646 , 1 173 ,3694 ,1045 ,20 

86,1717,2486,0,0 

710 DATA 0,0,1754,1462,0,0,1790,2038,0,0 

, 1367 ,3754 ,0 ,0 , 1876 ,686 ,1876 ,686 ,0 ,0 

720 DATA 0,0,0,0,0,0,0,0,1374,1962,30,19 

20 ,1374 , 1962 ,30 ,1920 ,1374 , 1962 ,0 ,0 

730 DATA 0,0,2925,2925,2340,585,3218,117 

1 ,2560,5,2852,589,2866,1229,2610,1221 ,36 

98,1255,0,0 



•>a- I- • ^Pr/vA • T-f 3> K 177 










)X.ry^- / r7^^(Di 



i£>ftLTfcU JT, 



S03-486-18E4 




yuif 



i 




1LU6-IH 7JJ-i7MlUt'Jl/ ($077.+- MSXV^*S/>® 



HAL/VOTE 




**#« iHi^wam t 



r zl — +f — M St CO Ji *I3 H>1+ 
TlOIKJSfflTttfflEWfflSffiStf-' - ' TEL.03-2S2-S5B1 *MSxU7':**-<ni8>l*TT. r iTmtt*jC t?i- ,HSi*j!WR 





50* 






1!» 



|0 



% 







^U-** 



C^ 













CS32+ li> *-A0ifi*i Wb> 




■Ml — 







r FUtr'J7y3ox-c->wuj 

UMWJ6.800PI-«*lrtDOx2mu 



*TbEV7S#6* 
"<'5/.C8A**n-A." r H K-/?2j 



*ww.t WMi* rtimao Electronics IBTWiSliMfcSCaxtt 



Panasonic 



^, 






Printed in Japan *B*En»J 



tm 12081-09 



544 

R 



